Главная страницаОбратная связьКарта сайта

Работа с 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("?wurl=www.site.ru");
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Работа с Netscape Navigator через DDE", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2023 Дискета.info