Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Abrir Internet Explorer desde Delphi, pasándole la dirección (https://www.clubdelphi.com/foros/showthread.php?t=59950)

ea6zs 14-09-2008 19:46:13

Abrir Internet Explorer desde Delphi, pasándole la dirección
 
Hola a tod@s
Imaginad que en un form temenos un edit con una dirección tipo: www., http, o incluso una dirección de un archivo htm en nuestro propia equipo.
Quiero poner en fucionamiento Internet Explorer (o cualquier otro explorador), mediante winexec, pero ¿como le indico que vaya a la dirección que indicaba en el edit del form?
Hasta ahora consigo poner en funcioamiento el explorador pero va a la dirección que tiene configurado por defecto.
Gracias;)

marcoszorrilla 14-09-2008 20:26:19

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(self.handle, 'open', 'http://www.clubdelphi.com', nil, nil,
SW_SHOWNORMAL);
end;
No olvides incluir la unidad ShellApi en tu formulario.

Un Saludo.

dec 14-09-2008 20:26:36

Hola,

Código Delphi [-]
uses
  ShellApi;

{...}

begin
  ShellExecute('open', 'file:///C:/archivo.html', nil, nil, SW_NORMAL);
end;

PD. La próxima vez presta atención dónde pones tu mensaje: el foro "Tablas planas" no parece apropiado para este asunto, así que lo he movido a "Varios".

ea6zs 15-09-2008 06:56:23

Pasar Dirección
 
:)Muchas gracias a ambos, probaré vuestras soluciones.

adan12 18-04-2012 09:13:27

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(self.handle, 'open', 'http://www.clubdelphi.com', nil, nil,
SW_SHOWNORMAL);
end;

http://www.clubdelphi.com si en ves de ese web site quisiera poner un edit1 para poner cualquiera otras mas web como seria ? disculpen

beginner01 18-04-2012 20:32:26

Hola.

Recuerda poner las etiquetas [delphi][/ DELPHI] para encerrar el código.

Prueba así.

Código Delphi [-]

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShellExecute(self.handle, 'open', PChar(Edit1.Text), nil, nil,
  SW_SHOWNORMAL);
end;

adan12 18-04-2012 23:43:01

gracias
 
muchas gracias me funciono correcto ok


La franja horaria es GMT +2. Ahora son las 01:07:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi