如何制作delphi的chm联机帮助，回答加分

Question

包括用什么CHM编译，CHM的详细用法 介绍，每个控件按F1转到相应的帮助项

Answer 1

在vb中，自代了一个chm编译器，可以试一试，我用这还行

Answer 2

一定要用CHM嗎？HLP可不可以？

Answer 3

在Ddelphi如何按F1跳转到相应的帮助页???????????

Answer 4

兄弟，我可以帮你！我刚刚搞定了这个问题的！
联系我！
QQ：4836401 请注明是CSDN上的朋友。

Answer 5

//以下函数及定义作为公有函数和变量，方便各个窗口调用。
type
  procedure ShowChmHelp(sTopic: String);  //里面的sTopic参数为各个HTML页面的文件名
var
  const
    HH_DISPLAY_TOPIC=0;
    SHORT_CUT_F1=3866625;
  function HTMLHelpA(hwndcaller: Longint; lpHelpFile:String;
    wCommand: Longint; dwData: String):HWND;stdcall;external 'hhctrl.ocx' name 'HtmlHelpA'procedure ShowChmHelp(sTopic: String);
var
  i: integer;
begin
  i:=HtmlHelpA(Application.Handle,PChar(ExtractFilePath(Application.ExeName)
    +'\help.chm'),HH_DISPLAY_TOPIC,sTopic);
  if i=0 then
  begin
    MessageDlg('帮助文件损坏或遗失！'#13'请与程序供应商联系。',mtError,[mbOK],0);
    exit;
  end;
end;//以下过程在相应的界面中加入
procedure TMainForm.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
  if Msg.KeyData=SHORT_CUT_F1 then
    ShowChmHelp('Overview.htm');
end;