Delphi2007的新功能之调用chm类型帮助

在Delphi2007中的Windows单元增加了许多API函数，其中就包括

{$EXTERNALSYM HtmlHelp}
function HtmlHelp(hWndCaller: HWND; pszFile: PChar; uCommand: UINT; dwData: DWORD): HWND;
{$EXTERNALSYM HtmlHelpA}
function HtmlHelpA(hWndCaller: HWND; pszFile: PAnsiChar; uCommand: UINT; dwData: DWORD): HWND;
{$EXTERNALSYM HtmlHelpW}
function HtmlHelpW(hWndCaller: HWND; pszFile: PWideChar; uCommand: UINT; dwData: DWORD): HWND;
三个函数，用于调用chm类型帮助文件。

这样我们就不用使用他人编写的单元来封装这些函数了，使用原生的。

例子如下：

 

procedure TForm6.Button1Click(Sender: TObject);
begin
  HtmlHelpA(handle, PAnsiChar('E:/hotelerp/hotelerp.chm::/html/topic4.10.htm'), HH_DISPLAY_TOPIC, 0);
end;

 

特别说明：

参数2中，原型为：帮助文件名称::/chm中的目录/具体的网页文件名称

Delphi2005没有用过，不知有没有封装这些函数！