Delphi中调用NetscapeNavigator
点击次数：67 次 发布日期：2008-11-09 08:37:43 作者：源代码网
源代码网推荐 够完成这一功能。 源代码网推荐 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． 源代码网推荐 源代码网供稿. |
