Delphi程序与Chm帮助关联的简单实现

核心提示：Delphi程序与Chm帮助关联的简单实现 作者：李新 kelvinsdu@sina.com QQ：1348513 Chm格式的帮助是从windows98以后才出现的新的格式，与.hlp格式相比，Delphi程序与Chm帮助关联的简单实现，具有更简单的编辑方式、更丰富的画面，它是通过Chm制作工具对网页文件进行编

Delphi程序与Chm帮助关联的简单实现    作者：李新  kelvinsdu@sina.com  QQ：1348513   Chm格式的帮助是从windows98以后才出现的新的格式，与.hlp格式相比，具有更简单的编辑方式、更丰富的画面。它是通过Chm制作工具对网页文件进行编译得到的，所以理论上你可以把帮助文件做的和网页一样漂亮。   最简单的制作方法:先用FronPage制作帮助文件，然后用HTML Help Workshop编译就可以得到*.chm的帮助文件了。HTML Help Workshop可以到微软的网站上去下载。   应用程序中的帮助可分为上下文关联和非关联两种。上下文关联，是指用户按F1键后，出现与当前焦点对象（如窗体、文本框、下拉列表框）相关的帮助画面；不同对象，出现的帮助不同。非关联帮助，是指在程序任何位置按F1键后，出现同一帮助画面。下面就这两种方式，谈谈在Delphi中的简单实现方法。   一、非关联的chm帮助 在Delphi中，你可以通过ShellExecute函数直接调用chm帮助文件，具体如下: uses shellapi
....... var  HWndHelp:Hwnd; 　　 i:integer; begin 　 //检查帮助窗口是否已经存在 　 HWndHelp:=FindWindow(nil,conHelpTitle); 　 if HwndHelp<>0 then  // 如存在则关闭 　　　  SendMessage(HwndHelp,WM_CLOSE,0,0); 　 i:=ShellExecute(handle, 'open',Pchar(strCurExePath+'\help.chm''),nil, nil, sw_ShowNormal); 　 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;