请问哪位高手知道，如何在delphi重运行.chm文件。急！ 我把一些相关的文档编译成.chm文件，想在delphi中打开它。该怎么办呢？ 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi程序与Chm帮助关联的简单实现 作者：李新 [email protected] 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;这样，通过不同窗体的FormHelp事件，就可以实现帮助的关联。 以上介绍了delphi应用程序与chm帮助关联的一种简单实现方法。如果要实现更复杂的关联（例如，与帮助页面内特定位置/书签的关联，请查看HtmlHelpA函数的说明。 ShellExecute(handle,'open',pchar(ExtractFilePath(Application.EXEName)+'文件名.chm'),'','',SW_SHOWNORMAL); 如何开发一个程序来控制另外一个程序 急!!!!三层更新问题 小问题，delphi里怎么截取？就像数据库里的substring？ 祝D版的兄弟姐妹们国庆快乐（Borland中国&游民）---散分之二 两个问题,100分 delphi里面怎么实现foxpro的宏代换功能? Delphi编程方面的 4 问题 小女子有一棘手问题请教各位大侠!急 急 如何建立别名并用table组件来查询? 各位高手，出现‘无法为更新行集定位，一些值可能在最后读取后改变‘的错误，这是为什么阿？？SOS! 关于动态确定Tedit类的名字， 比较有用的问题 又是query的问题
.......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函数的说明。