Procedure UseHelp;
var myhelp:string;
HWndHelp:HWnd;
begin
//检查帮助窗口是否已经存在
HWndHelp:=FindWindow(nil,帮助窗口的caption);
if HwndHelp<>0 then
// 如存在则关闭
SendMessage(HwndHelp,WM_CLOSE,0,0);
myhelp:='hh '+'路径+帮助文件名.chm::/'+帮助文件中相应文件名.htm;
Winexec(pchar(myhelp),SW_SHOW);
end