DELPHI编程中调用标准的WIN帮助文件

Author: 季昭君 Date: 2000年第15期

　　一个标准的Windows应用程序都应该有一个标准的WIN帮助文件，例如许多大公司出品的软件，都会在程序中附有非常详细的帮助文件。如果你也想让自己的软件或程序变得更专业化一些，也应该在你的应用程序中附有帮助文件。标准的帮助文件中应有：帮助主题、搜索特征、HOW TO USE HELP等内容，你可以用一些专门写帮助文件的程序去完成它们。但在程序中如何调用这些帮助文件呢?在此笔者就用DELPHI编程为各位演示调用标准WIN帮助文件的程序!
　　首先，新建工程，在FORM1上放一个BUTTON1（其CAPTION为：调用标准WIN帮助文件）和一个BUTTON2（关闭帮助文件），其他属性都保持不变，然后输入以下程序代码:
　　unit GETHLP;
　　interface
　　uses  Windows， Messages， SysUtils， Classes， Graphics， Controls， Forms， Dialogs，StdCtrls;
　　type  TForm1 = class（TForm）
　　    Button1: TButton;
　　    Button2: TButton;
　　    Label1: TLabel;
　　    procedure Button1Click（Sender: TObject）;
　　    procedure Button2Click（Sender: TObject）;
　　    procedure FormCreate（Sender: TObject）;
　　  private { Private declarations }
　　  public { Public declarations }
　　  end;
　　var  Form1: TForm1;
　　implementation {＄R ＊.DFM}
　　procedure TForm1.Button1Click（Sender: TObject）; //调用帮助文件
　　VAR
　　DD:LONGBOOL; //声明变量
　　Begin //在此调用c:\windows目录下的winhelp.hlp文件，如路径不对请自行调整
　　DD:=WINHELP（FORM1.HANDLE，＇C:\Windows\WINHELP.HLP＇，HELP_INDEX，0）;
　　end;
　　procedure TForm1.Button2Click（Sender: TObject）;
　　VAR
　　DS:LONGBOOL; //声明变量
　　Begin //关闭从前打开的帮助文件winhelp.hlp
　　DS:=WINHELP（FORM1.HANDLE，＇C:\Windows\WINHELP.HLP＇，HELP_QUIT，0）;
　　end;
　　end.
　　以上程序中显示的是索引值帮助文件，如要显示帮助文件的其他项（如帮助主题，搜索特征等）请读者自己参考有关的API函数说明文件（可查找以HELP打头的），笔者就不再赘述了。
　　注：以上程序在中文Windows 98，DELPHI 4.0 C/S版中调试通过。