使用netscape。 (2000年12月29日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 23 行

使用NETSCAPE。 (2000年12月29日) 

网友更新  分类:数据库   作者: maming(推荐)  推荐:maming   阅读次数:284  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
USER 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:\NS32\PROGRAM\NETSCAPE.EXE';//activate the NetscapeNavigator
SetLink('Netscape','WWW—Activate');
RequestData('0xFFFFFFFF');//goto the specified URL
SetLink('Netscape','WWW—OpenURL');
RequestData(sURL+',,0xFFFFFFFF,0x3,,,');
CloseLink;
end；
dde.Free;
end;