如果是Word 文挡 用HCW.exe转化为 .hlp 的文件:
if FileExists('help.hlp') then
begin
Application.HelpFile :='help.hlp';
Application.HelpCommand(HELP_FINDER, 0);
end
else
Application.MessageBox('帮助文件不存在!','信息提示',mb_iconError+mb_OK);
如果 .chm的:
var
fpath:string;
begin
fpath:=ExtractFilePath(ParamStr(0))+'help.chm';
ShellExecute(handle,nil,pchar(fpath),nil,nil,sw_shownormal);
end;