Работа с Netscape Navigator через DDE

Работа с Netscape Navigator через DDE

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;


DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...