在Windows中各种应用程序使用期间，我们可以通过按下F1键快速进入相关主题的帮助信息，从而获取帮助。在用户自己编写的Delphi应用程序里，对于chm格式的帮助文件，我们也可以编写自己
|
|
在阅读下面文字之前，请先确保自己会用MicroSoft的帮助文件制作工具HelpWorkshop制作chm格式帮助，如果不会，请参阅网上王寒晖写的文章《跟我学做chm帮助文件》。
以下是用Delphi实现联机帮助的过程： 数据挖掘研究院
1. 列出程序里需要用到的联机帮助主题，并分配主题号，以及对该主题进行解释的html文件；
如：控件Button1的帮助主题是ID_Button1_Help，主题号是10，帮助文件是sample1.htm。
对于需要联机帮助的所有控件或文字，按照Button1的方式依次列出帮助主题、主题号和帮助文件。
2. 在chm帮助文件所在目录下新建两个文件，Library.h和Library.txt; 数据挖掘研究院
打开Library.h进行编辑，按如下模式输入步骤1中列出的帮助主题，每行写一个帮助主题。
如：#DEFINE ID_Button1_Help 10
#DEFINE ID_Button2_Help 11； 数据挖掘研究院
打开Library.txt进行编辑，按如下模式输入步骤1中列出的帮助主题弹出文字。
如：.topic ID_Button1_Help
这是Button1的联机帮助！
.topic ID_Button2_Help
这是Button2的联机帮助！ 数据挖掘研究院
3. 打开chm帮助文件的工程文件，进入Project（工程）页面，用鼠标左键单击左侧由上至下第四个按钮HtmlHelp API information（Html帮助API信息）。
1) 在弹出的HtmlHelp API information窗口中选择Alias（别名）页面，用鼠标左键单击右侧由上至下第一个按钮Add…（添加…），在弹出的Alias对话框中第一个编辑框内输入ID_Button1_Help，第二个下拉列表框内选择sample.htm，点击OK按钮插入该Alias（别名），重复此过程直至步骤1中所有的主题均在此处列出，如下图所示。
2) 在HtmlHelp API information窗口中选择Map（映射）页面，用鼠标左键单击右侧由上至下第一个按钮Header File…（头文件…），在弹出的Include File（包含文件）对话框中，单击Browse…（浏览…）按钮，在弹出的打开…对话框中找到Library.h文件，单击打开返回Include File（包含文件）对话框，单击OK按钮返回Map（映射）页面，如下图所示。
3) 在HtmlHelp API information窗口中选择Text Pop-ups（弹出文字）页面，用鼠标左键单击右侧由上至下第一个按钮Header File…（头文件…），在弹出的Include File（包含文件）对话框中按步骤2）中方式指定Library.h文件；用鼠标左键单击右侧由上至下第二个按钮Text File…（文本文件…），在弹出的Include File（包含文件）对话框中按步骤2）中方式指定Library.txt文件，单击OK按钮返回Text Pop-ups（弹出文字）页面，如下图所示。
4. 在HtmlHelp API information（Html帮助API信息），点击确定按钮返回Project（工程）页面，选择File－>Compile重新编译该帮助文件。
到现在为止，我们已经准备好了一个可以实现联机帮助的chm文件了，下面我们就可以编写delphi程序实现联机帮助功能了，过程如下。 数据挖掘研究院
1. 新建一个工程Project1，新建Unit，将该Unit保存为HtmlHelp_Declaration，打开HtmlHelp_Declaration，在此声明HtmlHelp函数及相关常量、类型。该文件内容如下所示：
unit HTMLHELP_Declaration;
interface
uses
Windows;
const 数据挖掘研究院
HH_HELP_CONTEXT = $0F;
HH_CLOSE_ALL = $12; 数据挖掘研究院
HH_INITIALIZE = $1C; 数据挖掘研究院
HH_UNINITIALIZE = $1D; 数据挖掘实验室
type 数据挖掘实验室
DWORD_PTR = ^DWORD;
function HtmlHelp( hwndCaller:HWND; strFile:String; uCommand:UINT; dwData:DWORD_PTR ):HWND; //实现启动联机帮助的函数 数据挖掘研究院
procedure CloseHtmlHelpSystem; //实现关闭帮助窗口的过程
implementation
uses
SysUtils; 数据挖掘研究院
const
HHControlInstance:THandle=0; 数据挖掘研究院
var 数据挖掘实验室
HtmlHelpA:function ( hwndCaller:HWND; pszFile:PChar ; uCommand:UINT;
dwData:DWORD_PTR ):HWND;stdcall;
//引用HHCTRL.OCX中的启动帮助函数 数据挖掘研究院
(* 函数实现 *)
function HtmlHelp( hwndCaller:HWND; strFile:String; uCommand:UINT; dwData:DWORD_PTR ):HWND;
(*函数的实现过程：如果是第一次启动联机帮助，则载入库HHCTRL.OCX，并将启动帮助函数的地址赋给HtmlHelpA，然后通过传递参数HH_INITIALIZE调用之来初始化联机帮助，最后通过调用该函数并传递适当的参数来实现联机帮助；如果不是第一次启动联机帮助，则直接调用该函数并传递适当的参数即可。*)
var
OcxFileName:String; 数据挖掘研究院
p:PChar; 数据挖掘研究院
begin
if HHControlInstance=0 then 数据挖掘研究院
begin
OcxFileName := StringOfChar( " ", 256); 数据挖掘实验室
p := PChar( OcxFilename ); 数据挖掘实验室
GetSystemDirectory(p,255); 数据挖掘实验室
StrCat(p,"HHCTRL.OCX"); 数据挖掘研究院
HHControlInstance := LoadLibrary( P ); 数据挖掘研究院
if HHControlInstance = 0 then 数据挖掘实验室
raise exception.Create("HHCtrl.OCX not installed!"#13" HTMLHELP cannot displayed!");
@HtmlHelpA := GetProcAddress( HHControlInstance, "HtmlHelpA");
if @HtmlHelpA = nil then
raise exception.Create("Function HTMLHELP cannot loaded!"); 数据挖掘研究院
HtmlHelpA( 0, nil, HH_INITIALIZE, (@dwCookie)); 数据挖掘研究院
end; 数据挖掘研究院
result := HtmlHelpA( hwndCaller, PChar( strFile ), uCommand, dwData );
end;
procedure CloseHtmlHelpSystem; 数据挖掘研究院
(*函数的实现过程：调用HtmlHelpA函数并传递参数HH_UNINITIALIZE来反初始化联机帮助，并释放前面载入的库HHCTRL.OCX。*) 数据挖掘研究院
begin 数据挖掘研究院
if HHControlInstance<>0 then 数据挖掘研究院
begin 数据挖掘研究院
HtmlHelpA( 0, nil, HH_UNINITIALIZE, DWORD_PTR(dwCookie)); 数据挖掘研究院
FreeLibrary(HHControlInstance);
end; 数据挖掘研究院
end;
end.
2. 在Unit1保留字implementation后面添加上对HtmlHelp_Declaration的引用声明，如下所示： 数据挖掘研究院
uses
HTMLHELP_Declaration;
3. 修改Unit1窗体的HelpFile属性为上面重新编译过的chm文件，要写明路径及文件名，如帮助文件与工程文件在同一路径下，只需指定文件名即可。
4. 在Unit1窗体的事件onclose函数中添加如下代码： 数据挖掘实验室
HtmlHelp( 0,"",HH_CLOSE_ALL,nil);
CloseHtmlHelpSystem;
5. 在Unit1窗体的事件onhelp函数中添加如下代码： 数据挖掘研究院
Htmlhelp(Handle, HelpFile, HH_HELP_CONTEXT, 数据挖掘研究院
DWORD_PTR(ActiveControl.HelpContext)); 数据挖掘研究院
CallHelp := False;
6. 在Unit1窗体中添加一个Button控件，设置该控件的HelpContext属性值为10。 数据挖掘研究院
编译运行Project1，在显示的窗口中利用Tab键使当前焦点为Button1，此时按下F1键，对Button1的联机帮助是不是出现了？对了，制作联机帮助就是这么简单！ 数据挖掘研究院
以上程序在WinXP + Delphi5上调试通过，本人有上述程序的完整源码，有兴趣的同志可以email我（tr_xu@sina.com）索取。
