在Delphi中,要调用Chm文件可以通过引用HHctrl.ocx文件的函数HtmlHelpA实现。
不过在这里,我们也可以使用API函数ShellExecute来打开Chm帮助文件。
在网上找到的资料,通常以
ShellExecute(self.Handle,'open','help.chm','', '',SW_SHOW);?
的方式来实现。
但有个不足,就是不能打开指定的帮助页面,所显示的是帮助文档的起始页面。
想到Chm文件被关联到hh.exe程序,那只要执行hh.exe程序,并传入指定页面的地址,则应该可以打开指定帮助页面。
方法如下:
ShellExecute(self.Handle
,'open'
,'hh.exe'
,'mk
MSITStore:' + ExtractFilePath(Application.ExeName) + 'wordimggener.chm::/html/welcome.htm'
, ''
,SW_SHOW);?
只要在Form的onHelp事件中,对应当前ActiveControl,传入相应的地址就可以显示相关的帮助信息。
也可以在Form中加入一个ActionList,添加一个动作,设置快捷键为F1,在Execute事件中调用上面的函数来打开Chm帮助文档,当不失是一个简便的方法。