main.pas

在Delphi中制作CHM联机帮助示例

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button2: TButton;
    b_Index: TButton;
    Button4: TButton;
    Button6: TButton;
    Bevel1: TBevel;
    B_KeywordLookup: TButton;
    Button1: TButton;
    procedure Button2Click(Sender: TObject);
    procedure b_IndexClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure B_KeywordLookupClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    AppPath:string;
  end;

var
  Form1: TForm1;

implementation
uses HTMLHELP_Decl, AboutForm;

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
begin
  HtmlHelp( 0, '', HH_CLOSE_ALL, nil );
end;

procedure TForm1.b_IndexClick(Sender: TObject);
begin
  HtmlHelp( handle, AppPath+'\Sample.chm::/HelpContent\index.htm',
            HH_DISPLAY_INDEX, DWORD_PTR(PChar('Ŀ¼')));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CloseHtmlHelpSystem;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AppPath := ExtractFilePath(Application.ExeName);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  HtmlHelp( handle, AppPath+'\Sample.chm::/HelpContent\index.htm',
            HH_DISPLAY_TOPIC, nil);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form_About.Show;
end;

procedure TForm1.B_KeywordLookupClick(Sender: TObject);
var
  link: HH_AKLINK;
begin
link.cbStruct :=     sizeof(HH_AKLINK) ;
link.fReserved :=    FALSE ;
link.pszKeywords :=  'Delphi';
link.pszUrl :=       nil;
link.pszMsgText :=   nil;
link.pszMsgTitle :=  nil;
link.pszWindow :=    0;
link.fIndexOnFail := TRUE ;
HtmlHelp( handle,AppPath+'\Sample.chm',
          HH_KEYWORD_LOOKUP,
          DWORD_PTR(@link));
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  Close;
end;

end.