|
随着Internet的火爆，有没有想过在你的Delphi程序中启动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．
|
