如何使用Delphi XE应用程序使用CHM HTML帮助文件

Question

delphi-如何使用delphi xe应用程序使用CHM HTML帮助文件？

http://edn.embarcadero.com/article/27842文章描述了如何使用CHM文件。我在那里做了所有描述的步骤。

添加

const
  HH_DISPLAY_TOPIC        = $0000;
  HH_DISPLAY_TOC          = $0001;
  HH_CLOSE_ALL            = $0012;
function HtmlHelp(hwndCaller: HWND;
  pszFile: PChar; uCommand: UINT;
  dwData: DWORD): HWND; stdcall;
  external 'HHCTRL.OCX' name 'HtmlHelpA';

和公共功能hh`

function TForm1.HH(Command: Word; Data: Integer;
  var CallHelp: Boolean): Boolean;
begin
  if (Command = 0) and (Data = 0) then
      HtmlHelp(Application.Handle,
        PChar(Application.HelpFile),
        HH_DISPLAY_TOC, 0);
  CallHelp := False;
end;

在FormCreate

中

  HelpDir:=ExtractFilePath(Application.EXEName);
  Application.HelpFile:=HelpDir+'Sample.chm';
  Application.OnHelp := HH;

在Button1 OnClick事件上添加了以下代码：

HH(0, 0, dummy);

单击按钮1后，光标将变成一个沙漏，仅此而已。

我做错了什么？

以及如何从Delphixe应用程序中使用CHM帮助文件？

Answer 1

您正在为HTML帮助提供的预期的文章。这些天，您要做以下几天：

• 将HtmlHelpViewer包括在您的至少一个用途子句中。
• 将Application.HelpFile设置为帮助文件的路径。

就是这样。您的问题中的代码应删除。内置的帮助观众会照顾所有这些细节。