Acceso directo

[jorgegetafe]

Hola, quiero hacer un boton, que al hacer clic sobre él abra una nueva venta de internet explorer en la dirección que yo le diga. (Necesito el codigo que el boton y lo del clic se hacerlo)

[[cHackAll]]

Código Delphi [-]
uses ShellAPI;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0, 'open', 'http://www.clubdelphi.com/foros/showthread.php?t=44361', nil, nil, SW_SHOW);
end;

[jorgegetafe]

Empezado por cHackAll

Código Delphi [-]
uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0, 'open', 'http://www.clubdelphi.com/foros/showthread.php?t=44361', nil, nil, SW_SHOW);
end;

Me aparece este error... no se que puede ser... (He añadido la unidad shellapi)

http://img140.imagevenue.com/img.php..._122_523lo.JPG

gracias.

[[cHackAll]]

No estoy muy seguro cual es la causa, cierra el IDE y abrelo de nuevo, corre... y si falla usa ésto:

Código Delphi [-]
ShellExecute(Handle, nil, 'http://www.marca.com', nil, nil, SW_SHOWNORMAL);

En todo caso desde el principio debiese haber funcionado!

Suerte!

[jorgegetafe]

Empezado por cHackAll

No estoy muy seguro cual es la causa, cierra el IDE y abrelo de nuevo, corre... y si falla usa ésto:


Código Delphi [-]ShellExecute(Handle, nil, 'http://www.marca.com', nil, nil, SW_SHOWNORMAL);



En todo caso desde el principio debiese haber funcionado!

Suerte!

Me sigue dando el mismo error :-(

[[cHackAll]]

No lo puedo creer (de verdad), me parece que existe alguna propiedad, variable o unidad justamente con el nombre 'ShellExecute', pero bueno en realidad se puede hacer lo que buscas de N formas, aca te dejo otra;

Código Delphi [-]
uses ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var IE: Variant;
begin
 IE := CreateOleObject('InternetExplorer.Application');
 IE.Visible := True;
 IE.Navigate('http://www.marca.com');
end;

Seguré analizando el anterior error, pero en definitiva debia haberte funcionado, ademas es la forma mas adecuada (desde mi punto de vista)

Suerte!