精华公布栏

发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: 在Delphi中调用NetscapeNavigator
发信站: 哈工大紫丁香 (Mon Sep  4 16:15:39 2000), 转信

。
　　随着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．

--
※ 修改:．haojs 于 Sep  4 16:13:10 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]