API方式(Foxpro中HtmlHelp)调用chm帮助文档(不用foxtools.fll获取窗口句柄)

do HelpId with 1101 && 测试用

* 功能描述：API方式调用CHM帮助文档(不用foxtools.fll获取窗口句柄)

function HelpId
lparameters tnTopic && 主题编号
declare integer FindWindow in WIN32API string,string

declare integer HtmlHelp in hhctrl.ocx integer hwndCaller,;
string pszFile,integer uCommand,integer dwData

local lcHelp,lhwndCaller
lcHelp = 'help.chm' && 帮助文框的位置
* 用FindWindow，省去用foxtools.fll中的mainhwnd()函数了
lhwndCaller = FindWindow(0,_screen.caption)
* 若调用主题不存在(不显示),再用主题编号为0调用显示出chm
if HtmlHelp(lhwndCaller,lcHelp,0x000f,tnTopic) = 0 && 0x000f 表示调用指定主题编号
HtmlHelp(lhwndCaller,lcHelp,0x0000,0) && 编号不存在则为0
endif
endfunc