Delphi7动态调用chm帮助文件，并使之打开指定的页面

         Chm格式的帮助是从windows98以后才出现的新的格式，与.hlp格式相比，具有更简单的编辑方式、更丰富的画面。它是通过Chm制作工具对网页文件进行编译得到的，所以理论上你可以把帮助文件做的和网页一样漂亮。

      简单的制作方法:先用FronPage制作帮助文件，然后用HTML Help Workshop或者EasyCHM等软件编译得到*.chm的帮助文件了。HTML Help Workshop可以到微软的网站上去下载。 应用程序中的帮助可分为上下文关联和非关联两种。上下文关联，是指用户按F1键后，出现与当前焦点对象（如窗体、文本框、下拉列表框）相关的帮助画面；不同对象，出现的帮助不同。非关联帮助，是指在程序任何位置按F1键后，出现同一帮助画面。建议使用EasyCHM工具制作chm文件，可视化操作，相比HTML Help Workshop来说，操作简单。如下图所示：

       在Delphi中实现上下文关联的chm帮助，可以通过调用Windows系统目录System32下的HHCTRL.OCX控件中 的HtmlHelpA函数实现。 下面就以一个包含两个窗体的小例子，谈谈在Delphi7中实现上下文关联CHM帮助的方法。

      该程序包含两个窗体，主窗体Form1和弹出窗体OKBottomDlg。如下图所示

     主窗体frmMain中包含一个Form1和Edit1，查询对话框OKBottomDlg中包含一个Edit1。将它们的HelpContext属性设为大于0的整数值。例如，主窗体Form1.HelpContext=10100 ，其中的文本框 Edit1.HelpContext=10101, Button1.HelpContext=10102；对话框OKBottomDlg.HelpContext=10200，其中 Edit1. HelpContext=10201，Button1. HelpContext=10202。.

相关实现代码如下：
1．声明Windows API函数HtmlHelpA

 

function HtmlHelpA (hwndcaller:Longint; lpHelpFile: string ; wCommand:Longint;dwData: string ): HWND;stdcall; external  ' hhctrl.ocx ' ;

2．定义调用chm帮助文件的公共函数

 

procedure TForm1.ShowChmHelp(sTopic: string );
const
  HH_DISPLAY_TOPIC = 0 ;
var i:integer;
begin
  i: = HtmlHelpA(Application.Handle,Pchar(extractfilepath(application.ExeName) + ' help.chm ' ),HH_DISPLAY_TOPIC,sTopic);
   if  i = 0  then
  begin
      Showmessage( ' help.chm 帮助文件损坏！ ' );
      exit;
  end;
end;

 3．设置应用程序的Onhelp事件响应函数

 

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnHelp: = FormHelp;
end;

 

4. 设置所有窗体的OnHelp事件

 

function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
   case  Data of
        10100 : ShowChmHelp( ' 1.html ' );
        10101 : ShowChmHelp( ' 2.html ' );
        else   ShowChmHelp( ' 3.html ' );
  end;
end;

function TOKBottomDlg.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
   case  Data of
     20200 : Form1.ShowChmHelp( ' 6.html ' );
     20201 : Form1.ShowChmHelp( ' 7.html ' );
     else  Form1.ShowChmHelp( ' 8.html ' );
  end;

end;

5. 所有窗体处理F1按键事件

 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if  Key  =  vk_f1 then
    application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);
end;

procedure TOKBottomDlg.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if  Key  =  vk_f1 then
    application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);
end;

 

样，通过设置相关属性和编写有关代码，就可以实现程序与chm格式帮助的关联。


以上介绍了delphi7应用程序与chm帮助关联的一种简单实现方法。如果要实现更复杂的关联（例如，与帮助页面内特定位置/书签的关联，请查看HtmlHelpA函数的说明。

完整的代码清单，如下：

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

const
  HH_DISPLAY_TOPIC = 0 ;
type
  TForm1  =   class (TForm)
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Button1: TButton;
    procedure BitBtn1Click(Sender: TObject);
    function FormHelp(Command: Word; Data: Integer;
      var CallHelp: Boolean): Boolean;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
   private
     ... { Private declarations }
   public
     procedure ShowChmHelp(sTopic: string );
     ... { Public declarations }
  end;

var
  Form1: TForm1;

function HtmlHelpA (hwndcaller:Longint; lpHelpFile: string ; wCommand:Longint;dwData: string ): HWND;stdcall; external  ' hhctrl.ocx ' ;

implementation

uses Unit2;

... {$R *.dfm}
procedure TForm1.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
      Showmessage( ' help.chm 帮助文件损坏！ ' );
      exit;
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  OKBottomDlg.ShowModal();
end;

function TForm1.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
   case  Data of
        10100 : ShowChmHelp( ' 1.html ' );
        10101 : ShowChmHelp( ' 2.html ' );
        else   ShowChmHelp( ' 3.html ' );
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//   ShowChmHelp('5.html');
//   WinExec(PChar('help.chm::1.htm'),sw_normal);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  application.OnHelp: = FormHelp;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if  Key  =  vk_f1 then
    application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);
end;

end.

 

unit Unit2;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls;

type
  TOKBottomDlg  =   class (TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Edit1: TEdit;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    function FormHelp(Command: Word; Data: Integer;
      var CallHelp: Boolean): Boolean;
   private
     ... { Private declarations }
   public
     ... { Public declarations }
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation

uses Unit1;

... {$R *.dfm}

procedure TOKBottomDlg.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if  Key  =  vk_f1 then
    application.HelpCommand (HELP_CONTEXT,TControl(Self.ActiveControl).HelpContext);
end;

function TOKBottomDlg.FormHelp(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
   case  Data of
     20200 : Form1.ShowChmHelp( ' 6.html ' );
     20201 : Form1.ShowChmHelp( ' 7.html ' );
     else  Form1.ShowChmHelp( ' 8.html ' );
  end;

end;

end.