在Delphi中如何调用.chm帮助文件？

Question

Var St:Array[0..255] of char;
begin
  ShellExecute(Handle,'open',StrPCopy(St,Bpath+'\huamin.chm'),nil,nil,SW_SHOW);
end;

Answer 1

Var St:Array[0..255] of char;
begin
  ShellExecute(Handle,'open',StrPCopy(St,'E:\huamin.chm'),nil,nil,SW_SHOW);
end;

Answer 2

先在Global External Function声明
Function Long HtmlHelpA (long hwnd ,string lpHelpFile , long wCommand, string dwData) Library "hhctrl.ocx" 
在代码中调用
htmlhelpA(handle(this), "a.chm" + ">" + "main", HH_DISPLAY_TOPIC, "aaa.htm")
//PB下的声明

Answer 3

ShellExecute(handle,'open',pchar(你的路径\help.chm),nil,nil,SW_SHOWNORMAL)

Answer 4

WinExec('hh.exe Help.chm',SW_MAXIMIZE);