|
|
|
Готовые
программы
| Командная строка
|
Чат
|
Авторам
|
Наши баннеры
Гостевая книга
|
Форум
|
Послать E-mail
|
Добавить свою работу
|
JavaScript |
|
РАБОТА С NETSCAPE NAVIGATOR
ЧЕРЕЗ DDE
|
|
|
Добро
пожаловать на сайт
для настоящих
программистов! |
|
|
Этот пример демонстрирует переход на указанный URL через Netscape.
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.infoart.ru');
end;
|
<<Назад
| На главную
|
|
