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

例，主窗体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