调用chm帮助的方法:
procedure TDataModuleMain.Help(strHelp: String);
//显示帮助
var
MstrHelpFile : string
//帮助文件名
begin
MstrHelpFile := '你的帮助文档.chm';
if (FileExists(ExtractFilePath(Application.ExeName)+ MstrHelpFile))then
begin
strhelp:='mk
MSITStore:'+ExtractFilePath(Application.ExeName)+
MstrHelpFile + strHelp;
ShellExecute(Application.Handle, 'Open',
'hh.exe', Pchar(strhelp), nil, SW_SHOWNORMAL);
end
else
Application.MessageBox(PChar('文件 "' +MstrHelpFile +
'"
没有找到,可能已被移除!'),'错误',MB_OK+MB_ICONERROR);
end;
其中strHelp,是从chm帮助中,单击右键拷贝他的属性:如'::/index.htm'
嘻嘻就这么简单,给分吧