delphi中帮助文件是如何创建的呀,请教

解决方案 »

  1.   

    写一个.chm文件。然后用那个打开EXE的函数调用。
      

  2.   

    按F1实现帮助功能:
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils,shellapi, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
        Procedure   WmHelp(var   message:TWMHELP);message   WM_HELP;
      end;var
      Form1: TForm1;implementation{$R *.dfm}
     procedure   TForm1.WmHelp(var   message:   TWMHELP);
      begin   
          Shellexecute(application.Handle,'open','http:\\mail.163.com',nil,nil,SW_NORMAL);
      end;
       
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        Shellexecute(application.Handle,'open','http:\\mail.163.com',nil,nil,SW_NORMAL);
    end;end.
      

  3.   

    用API吧function HtmlHelp(hwndCaller: HWND; pszFile: PChar; uCommand: UINT; dwData: PDWORD): HWND; stdcall; external 'hhctrl.ocx' Name 'HtmlHelpA';
      

  4.   

    .chm编个
    还有一个反编.chm的程序