pb9下调用chm文件没反应?

[am2000]

我原来在pb8下用HtmlHelpA调用一直正常,
现在在pb9 Version 9.0.1 Build 7024 下面无论用纳种方法都不行.
ls_file=app_path+"\js2000hz.chm"
IF FileExists(ls_file) THEN
//Run("js2000hz.chm",Maximized!)
//ShowHelp("js2000hz.chm",Topic!,1 )
//ShowHelp("js2000hz.chm",Index!)
//ShowHelp("js2000hz.chm",KeyWord!,"")
HtmlHelpA(handle(THIS),"js2000hz.chm",HH_DISPLAY_TOPIC,"cover1.htm")

ELSE
MessageBox("",ls_file)
END IF

[Hanson_bati_zhu]

你程序的当前路径中有这个chm文件么？
会不会是没有找到？

[am2000]

当然有的.

[pbgood]

打补丁试试

[老板卤两个蛋蛋]

你用 showHelp()函数看下看 ,我就是用的这个函数 在 PB8 和 PB9 下都行的!

[feixianzhi]

我用showhelp函数很好用的，你的pb9有补丁吗？

[wxhacker]

HtmlHelpA(handle(this),"fagui.chm",1,"index.htm")

[yzh963]

1、首先加入下面的API函数，是全局外部函数。
FUNCTION ulong GetCurrentDirectoryA(ulong BufferLen, ref string currentdir) LIBRARY "Kernel32.dll"
但要确保应用文件中有Kernel32.dll文件。

[yzh963]

2、在调用文件的地方写下如下代码，应该可以的。
string ls_path
int ls_rtn
ls_path = space(255)
GetCurrentDirectoryA(255 , ls_path)
ls_path = "hh.exe "+ ls_path + "\" + "a.chm"
ls_rtn = Run(ls_path ,Maximized!)
if ls_rtn <> 1 then
messagebox("提示" ,"文件不存在")
end if

[suncom_zhu]

run("hh " + "js2000hz.chm")

[feixianzhi]

还没有解决呀！？直接用showhelp（"js2000hz.chm"）试试

[baiyga]

run("hh 文件名")