Delphi中调用NetscapeNavigator
【打印文章】
Netscape浏览器,显示出你指定的WWW地址的主页。下面这个程序能
够完成这一功能。
programNetscape;
usesDDEMan;
procedureGotoURL(sURL:string);
var
dde:TDDEClientConv;
begin
dde:ΚTDDEClientConv.Create(nil);
withddedo
begin
//specifythelocationofnetscape.exe
ServiceApplication:Κ′c:ιns32ιprogramι
netscape.exe′;
//activatetheNetscapeNavigator
SetLink(′Netscape′,′WWW—Activate′);
RequestData(′0xFFFFFFFF′);
//gotothespecifiedURL
SetLink(′Netscape′,′WWW—OpenURL′);
RequestData(sURL+′,,0xFFFFFFFF,0x3,,,′);
CloseLink;
end;
dde.Free;
end;
begin
GotoURL(′http://www.yahoo.com/′);
end.
够完成这一功能。
programNetscape;
usesDDEMan;
procedureGotoURL(sURL:string);
var
dde:TDDEClientConv;
begin
dde:ΚTDDEClientConv.Create(nil);
withddedo
begin
//specifythelocationofnetscape.exe
ServiceApplication:Κ′c:ιns32ιprogramι
netscape.exe′;
//activatetheNetscapeNavigator
SetLink(′Netscape′,′WWW—Activate′);
RequestData(′0xFFFFFFFF′);
//gotothespecifiedURL
SetLink(′Netscape′,′WWW—OpenURL′);
RequestData(sURL+′,,0xFFFFFFFF,0x3,,,′);
CloseLink;
end;
dde.Free;
end;
begin
GotoURL(′http://www.yahoo.com/′);
end.
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】