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

　　一个标准的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版中调试通过。