delphi中如何调用帮助？我是初学者，请多多指教

Question

uses shellapishellexecute(handle,pchar('open'),pchar('xxx.chm'),nil,nil,sw_shownormal)

Answer 1

Application.HelpFile :=extractfilepath(application.ExeName)+'HELPGUIDE1.HLP'（帮助文件名）;（指出路径）
Application.HelpCommand(HELP_CONTENTS,0);//或者Application.HelpCommand(HELP_FINDER,0);

Answer 2

在project\option中设置帮助文件名，可通过F1调HELP！

Answer 3

调用chm帮助的例子：
procedure TfrmMain.miHelpClick(Sender: TObject);
var
p:pchar;
begin
  if FileExists(ExtractFilePath(Application.Exename)+'HELP.chm') then
   begin
    p:=pchar(ExtractFilePath(Application.Exename)+'HELP.chm');
    ShellExecute(0, nil, p, nil, nil, SW_NORMAL);
   end
  else
   begin
    p:=pchar(ExtractFilePath(Application.Exename)+'heremed3.5帮助文件\hereinfoIndex.HTM');
    ShellExecute(0, nil, p, nil, nil, SW_NORMAL);
   end;
end; 

Answer 4

非常感谢四位大虾！！
另外想问z_x_b(长工落日金沙丘)
我在option中Application中helpfile改了，可是在程序中未实现，该如何改呢？