Buscar por:

Executa uma url a partir do netscape mesmo que ele não seje o browser padrão

Código

Procedure NetscapeGotoURL( sURL : string ); 

// ex: NetscapeGotoURL('http://www.delphi.eti.br/' ); 

// requer a unit DDEman na clausula Uses 

var 

dde : TDDEClientConv; 

begin 

dde := TDDEClientConv.Create( nil ); 

with dde do 

begin 

ServiceApplication :='C:... etscape.exe'; 

SetLink( 'Netscape', 'WWW_Activate' ); 

RequestData('0xFFFFFFFF'); 

SetLink( 'Netscape', 'WWW_OpenURL' ); 

RequestData(sURL+',,0xFFFFFFFF,0x3,,,' ); 

CloseLink; 

end; 

dde.Free; 

end;