如何用程序调用*.hlp帮助文件(50分)(50分)

J

jonson

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用程式序调用*.hlp帮助文件,显示帮助文件的目录而不是帮助内容.
 
Application.HelpFile:='YouHelp.hlp';
Application.HelpKeyword('Key');
 
if FileExists(ExtractFilePath(Application.ExeName) + 'Help.hlp') then
ShellExecute(handle, 'open', Pchar(ExtractFilePath(Application.ExeName) + 'Help.hlp'), nil, nil, SW_SHOWNORMAL)
else
Application.MessageBox('未找到帮助文件!', '错误', MB_ICONINFORMATION);
注意:在uses中加入:shellapi
 
shellexecute
 
ShellExecute来实现
[blue][/blue]
 
接受答案了.
 
顶部