我做了个chm帮助，如何调用呀？用什么函数？ShellExecute吗？

Question

我做了个chm帮助，如何调用呀？用什么函数？ShellExecute吗？

Answer 1

//打开.hlp或.chm文件
        shellexecute(self.Handle,PChar('Open'),PChar('del6vcl.hlp'),nil,PChar('C:\Program Files\Borland\Delphi6\Help'),SW_SHOWNORMAL);
        shellexecute(self.Handle,PChar('Open'),PChar('qq.chm'),nil,PChar('C:\Program Files\Tencent\help'),SW_SHOWNORMAL);

Answer 2

(1)显示*.HLP帮助文件
   winhelp(form1.clienthandle,'c:\app.hlp',help_contents,0);
   用于查找关键字
   winhelp(form1.clienthandle,'c:\app.hlp',help_key,0);
(2)显示*.HTM帮助文件
   添加控件TWebBrowser(ActiveX)
   webbrowser.navigate(URL,flags,targetframename,postdata,heads);
(3)显示*.CHM帮助文件    USES中加入Shellapi
   Var St:Array[0..255] of char;
   begin
    ShellExecute(Handle,'open',StrPCopy(St,'c:\app.chm'),nil,nil,SW_SHOW);
   end;