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帮助文件?