Работа с Netscape Navigator через DDE
Материал из DRKB
uses DDEman;
procedure GotoURL(sURL: string);
var
dde: TDDEClientConv;
begin
dde := TDDEClientConv.Create(nil);
with dde do
begin
// specify the location of netscape.exe
ServiceApplication := 'C:\Program Files\Netscape\Communicator\Program\NETSCAPE.EXE';
// activate the Netscape Navigator
SetLink('Netscape', 'WWW_Activate');
RequestData('0xFFFFFFFF');
// go to the specified URL
SetLink('Netscape', 'WWW_OpenURL');
RequestData(sURL + ',,0xFFFFFFFF,0x3,,,');
// ... CloseLink;
end;
dde.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GotoURL('http://www.site.ru');
end;
Source: http://delphiworld.narod.ru/
ID: 04505