精华公布栏

发信人: jinqiao (小桥★流水★人家), 信区: BorlandDev
标  题: 在Delphi中调用NetscapeNavigator
发信站: 哈工大紫丁香 (2000年11月18日10:57:55 星期六), 站内信件

发信人: flywithme (与我同飞), 信区: Delphi WWW-POST
标  题: 在Delphi中调用NetscapeNavigator
发信站: 武汉白云黄鹤站 (Mon Sep 20 11:29:55 1999) , 站内信件
。
　　随着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．

--
   I Believe I can Fly!
          I Believe I can Touch The Sky!

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