Delphi中调用CHM帮助文件

 uses shellapi
.......
var  HWndHelp:Hwnd;
     i:integer;
begin
   //检查帮助窗口是否已经存在
   HWndHelp:=FindWindow(nil,conHelpTitle);
   if HwndHelp<>0 then  // 如存在则关闭
        SendMessage(HwndHelp,WM_CLOSE,0,0);
   i:=ShellExecute(handle, 'open',Pchar(strCurExePath+'/help.chm''),nil, nil, sw_ShowNormal);
   if i<>42 then
      Showmessage(' help.chm 帮助文件损坏！');
end;