Ejecutar el explorador web por defecto  

Enviado Por: Q3 Team
Web : www.q3.nu
Email: dlib@q3.nu
Fecha: 29/08/20

Truco accedido 80 veces

 


Incluye 'ShellApi' en el uses de tu fom y ejecuta esto:




 	  ShellExecute(Form1.Handle,nil,PChar('index.html'),'','',SW_SHOWNORMAL);




Peeero, de esta manera, la segunda vez que lo ejecutamos, en lugar de abrirnos otra ventana con
otro explorador web, nos cargará la segunda página que le hemos pedido en la misma ventana.
Para ejecutar varias instancias del explorador web podemos usar esta otra manera:

Incluye 'UrlMon' en el uses de la form y ejecuta esto:


 HlinkNavigateString(Nil,'index.html');




Si vamos a usar una variable para pasar el dato, ésta debe ser una WideString, ó, si queremos usar una string, debemos hacer el siguiente Typecast:

 Var
   Dire : String;
 Begin
   Dire := 'http://www.google.com';
   HLinkNavigateString(NIL, PWideChar(WideString(Dire)) );
 End;




Actualizado el 29/08/2005 PWideChar...