terça-feira, 1 de setembro de 2009

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

Procedure NetscapeGotoURL( sURL : string );
// ex: NetscapeGotoURL('http://www.endereco.com.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;

Nenhum comentário:

Postar um comentário