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