精华公布栏

发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标题: Delphi编程 -- 8.2 调用NetscapeNavigator
发信站: 哈工大紫丁香 (2000年09月01日16:33:32 星期五), 站内信件

在Delphi中调用NetscapeNavigator。
　　随着Internet的火爆，有没有想过在你的Delphi程序中启动Netscape浏览器，
显示出你指定的WWW地址的主页。下面这个程序能够完成这一功能。
　　programNetscape；
　　usesDDEMan；
　　procedureGotoURL（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．

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]