如何在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);

點擊button1后，光標會變成沙漏一段時間，而這就是全部。

我做錯了什么？

以及如何從DelphiXE應用程序中使用CHM幫助文件？

Answer 1

您在早期工作的文章內置支持HTML幫助。 這些天你做了以下事情：

• 在至少一個HtmlHelpViewer子句中包含HtmlHelpViewer 。
• 將Application.HelpFile設置為幫助文件的路徑。

就是這樣。 您的問題中的代碼應該被刪除。 內置的幫助查看器負責處理所有這些細節。