在delphi 开发的程序中怎么用.chm格式的帮助文件？需要所有的代码和事件

Question

在delphi 开发的程序中怎么用.chm格式的帮助文件？
需要完整的代码和事件,我对这方面不熟悉,希望能够得到大家的帮助,谢谢!

Answer 1

procedure TfrmMain.actHelpExecute(Sender: TObject);
begin
  ShellExecute(Handle, 'open', PChar(具体chm路径), '', '', sw_Show);
end;

Answer 2

需要用到什么控件吗?
actHelp是什么啊?

Answer 3

function TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHelp := AppHelp;
end;function TForm1.AppHelp(Command: Word; Data: Longint; var CallHelp: Boolean): Boolean;
begin
  CallHelp := false;  // 不使用默认的帮助文件就要这样
  ShellExecute(Handle, 'open', 'help.chm', '', '', SW_SHOW);
end;Command和Data是用于定位帮助内容的，比如Index或者ContentID之类的。
对于VCL组件，如果在当前组件上按F1或者Shift F1，会触发Application.OnHelp事件，组件的Context属性作为Data参数传进来。

Answer 4

是不是要加什么啊? 我按照yeliming(贱神)那些代码打下去,出错咯!
说 ShellExecute这个不存在啊!!!是不是要在uses中加上什么啊?
还有,要不要加上什么控件啊????还是DelphiGuy() 那些代码就直接可以执行啊!!!

Answer 5

function TForm1.FormCreate(Sender: TObject);
============================================
这个应该是procedure TForm1.FormCreate(Sender: TObject);
居然Delphi帮助中的代码都写成这样子。:)

Answer 6

Delphi程序与Chm帮助关联的简单实现
 作者：李新  [email protected]  QQ：1348513Chm格式的帮助是从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：102012 声明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函数的说明。

Answer 7

请问"conHelpTitle"这个是不是写错了啊?(HWndHelp:=FindWindow(nil,conHelpTitle))
还有 i:=ShellExecute(handle, 'open',Pchar(strCurExePath+'\help.chm''),nil, nil, sw_ShowNormal); 问题提示说找不到"strCurExePath",希望可以得到进一步的解决~~谢谢~~~
非常感谢ron_xin(星雨)详细的解答~~~~~~~

Answer 8

conHelpTitle和strCurExePath都提示说找不到,是不是写的时候写错啊?还是有其他的提示啊?谢谢~~~~~~~~~~

Answer 9

ActHelp 就是一个Action而已，name := ActHelp。
如果你不懂Action，那就把那句代码放在ButtonClick事件中试试就知道了

Answer 10

另外，在Uses里面需要引用ShellAPI单元