如何在delphi程序中调用.chm的帮助文件? 如题。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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;这样,通过不同窗体的FormHelp事件,就可以实现帮助的关联。 以上介绍了delphi应用程序与chm帮助关联的一种简单实现方法。如果要实现更复杂的关联(例如,与帮助页面内特定位置/书签的关联,请查看HtmlHelpA函数的说明。 在开发应用程序过程中, 为更好地方便用户熟悉此软件的功能和使用方法, 我们可以使用CHM的帮助文档。那么, 如何更好地使CHM文档融入到你的应用程序中呢?笔者谈谈一种简单、方便的方法, 以供参考。 在Win9.x的system目录下(或Win2000的system32目录下)可以找到hhctrl.ocx文件, 虽然这个文件是ActiveX, 但是它还可以当成DLL动态链接库使用,不过它必须在IE4.0以后才有提供。通过分析 hhctrl.ocx 文件,可以看出它提供了一个HtmlHelpA函数来对CHM文件进行调用。 首先,在implementation里,作如下声明: function HtmlHelpA(hwndCaller: THandle; pazFile: String; uCommand, dwData: DWord): DWord; stdcall external 'hhctrl.ocx'; 然后就可以进行使用,例如: HtmlHelpA (handle, 'c\winnt\help\access.chm', 0, 0); 非常简单吧, 试试看, 您一定行的, 为你的程序加入这个简单易行的功能吧! Delphi得到自己IP 监控系统进程 救命呀,关于控件透明的问题 为何我的delphi7中没有quickreport控件????????/ 哪有VideoCap的使用说明? MDB 连接问题很简单,大家来帮忙 delphi 6.0 中用ado控件如何实现多线程的数据表查询? 今天参加BORLAND的活动,从李维处得到太多的好消息了。 菜鸟问题:请问DBGrid控件如何获取数据? 急! DBGrid单元格失去焦点时触发事件 请问如何创建一个三层结构中的应用服务器。 老生常谈:如何获取IE/Netcape/等浏览器网页内容?
.......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;这样,通过不同窗体的FormHelp事件,就可以实现帮助的关联。 以上介绍了delphi应用程序与chm帮助关联的一种简单实现方法。如果要实现更复杂的关联(例如,与帮助页面内特定位置/书签的关联,请查看HtmlHelpA函数的说明。