Delphi调用CHM帮助文件代码

应用程序中的帮助可分为上下文关联和非关联两种。上下文关联，是指用户按F1键后，出现与当前焦点对象（如窗体、文本框、 下拉列表框）相关的帮助画面；不同对象，出现的帮助不同。非关联帮助，是指在程序任何位置按F1键后，出现同一帮助画面。下面就这两种方式，谈谈在
Delphi中的简单实现方法。

一、非关联的chm帮助

在Delphi中，你可以通过ShellExecute函数直接调用chm帮助文件，具体如下:

uses shellapi

.......

var HWndHelp:Hwnd;

i:integer;

begin

//检查帮助窗口是否已经存在

HWndHelp:=FindWindow(nil,conHelpTitle);

//connHelpTitle是你打开的那个chm文件的标题，字符串格式

if HwndHelp<>0 then // 如存在则关闭

SendMessage(HwndHelp,WM_CLOSE,0,0);

i:=ShellExecute(handle, 'open',Pchar(strCurExePath+'\help.chm''),nil, nil, sw_ShowNormal);

//strCurExePath是你获取到的当前路径的字符串，若你的chm帮助文件与可执行文件在一个目录下，

//则可以直接改为'./help.chm'，注意“.”表示当前目录。

if i<>42 then

Showmessage(' help.chm 帮助文件损坏！');

end;

二、上下文关联的chm帮助

在Delphi中实现上下文关联的chm帮助，可以调用Windows系统目录System32下的HHCTRL.OCX控件中的HtmlHelpA函数实现。 需要以下几个步骤：

1 设置相关控件的HelpContext属性。

例，主窗体frmMain:：10100 ，其中的文本框 edtInput：10101

对话框dlgReport：10200 ，其中的组合列表框 cbReportEdit：10201

2 声明HtmlHelpA函数

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

3 F1按键响应

//公用函数ShowChmHelp显示不同帮助画面。

procedure ShowChmHelp(sTopic:string);

var i:integer;

begin

i:=HtmlHelpA(Application.Handle,Pchar(ExePath+'\help.chm’),HH_DISPLAY_TOPIC,sTopic);

if i=0 then

begin

Showmessage(' help.chm 帮助文件损坏！');

exit;

end;

end;

….

function TfrmMain.FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;

begin

case Data of

10100: ShowChmHelp(frmMain.htm);

10101: ShowChmHelp('edtInput.htm');

…

else ShowChmHelp(default.htm');

end;

end;

function TdlgReport.FormHelp(Command: Word; Data: Integer; var CallHelp: Boolean): Boolean;

begin

case Data of

10200: ShowChmHelp('dlgReport.htm');

10201: ShowChmHelp(cbReportEdit.htm');

…

else ShowChmHelp(default.htm');

end;

end;

这样，通过不同窗体的FormHelp事件，就可以实现帮助的关联。