WorkNetScapeDDE

uses

DDEman;

procedure

GotoURL( sURL : string ); var


DDE: TDDEClientConv;
begin


DDE := TDDEClientConv.Create(nil); with DDE do
begin
ServiceApplication:='C:Program'+ 'FilesNetscapeCommunicatorProgram'+ 'NETSCAPE.EXE';
SetLink('Netscape', 'WWW_Activate'); RequestData('0xFFFFFFFF'); SetLink('Netscape', 'WWW_OpenURL'); RequestData(sURL+',,0xFFFFFFFF,0x3,,,'); end;
DDE.Free;
end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com