如果在delphi挂帮助？

Question

如果在delphi挂帮助？

Answer 1

是不是要给工程添加帮助文件？如果是hlp文件，在工程的Options里面有个设置。或者在代码里面设Application.HelpFile。
是CHM文件，可以用ShellExecute调用hh.exe。

Answer 2

Application.HelpFile := 'clx.hlp';
Application.HelpJump('TApplication_HelpJump');

Answer 3

'TApplication_HelpJump'这个是你定义的关键字

Answer 4

uses ShellAPI
用API函数比较好
procedure Tfrm_main.mnu_SysHelpClick(Sender: TObject);
var
  tmpFile:string;
begin
  inherited;
  tmpFile:= PApp_path+'help.chm';   //PApp_path为路径
  if FileExists(tmpFile) then begin
    ShellExecute(handle,nil,pchar(tmpFile),nil,nil,sw_ShowNormal);
  end;
end;

Answer 5

做成chm文件后直接调用就可以了  
WinExec(Pchar('HH ' +ExtractFilePath(paramstr(0))+'Help.chm'),SW_SHOWNORMAL);

Answer 6

procedure TMainForm.AboutSystem;
var
  PathHelpFile:string;
begin
  PathHelpFile := 'hh.exe  D:\COSTING\costing.chm';
  if Winexec(Pchar(PathHelpFile), sw_normal) < 31 then
    DJShow(CON_NO_FIND_APP); //自定義未找到顯示對話框
end;procedure TMainForm.btnHelpClick(Sender: TObject);
begin
  AboutSystem;  //調用
end;在工程單元
  Application.Initialize;
加入代碼：
  Application.HelpFile := 'D:\COSTING\costing.chm';
             //指定幫助文件位置

Answer 7

唉，这个问题已经问过了！
你作成 .chm文件，假设是 help.chm
再：
  winexec ('hh','help.chm');注意路径！最好把 chm文件放到当前工程文件下！
接分了！

Answer 8

ShellExecute(Handle, nil, PChar(CurrentPath+'\motohelp.chm'), nil, nil, SW_MAXIMIZE);

Answer 9

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
begin
 if Msg.message=WM_KeyDown then
   if msg.wParam=vk_f1 then
   begin
     ShellExecute(application.handle,'open','c:\myhelp\help.chm','','',sw_show);//创建帮助窗口
     handled:=True;
   end;
end;
这么调用按f1键都行了。给点分吧，最近没上，长的好慢。