delphi - Delphi XE2 のアプリケーションで A-link (A-keyword) でコンテキスト ヘルプを呼び出すには?

Question

Delphi XE2 のアプリケーションで A-link (A-keyword) でコンテキスト ヘルプを呼び出すには?

Answer 1

必要なのはこの関数だけです：

procedure ShowHelpALink(const HelpFile, ALink: string);
var
  Link: THH_AKLink;
begin
  ZeroMemory(@Link, SizeOf(Link));
  Link.cbStruct := SizeOf(Link);
  Link.pszKeywords := PChar(AnsiString(ALink));
  Link.fIndexOnFail := True;
  HtmlHelp(GetDesktopWindow, HelpFile, HH_ALINK_LOOKUP, DWORD_PTR(@Link));
end;

何らかの理由で、レコード内の文字列をANSI文字列としてHtmlHelp解釈します。THH_AKLinkこれに関するドキュメントが見つかりません。これは、HtmlHelpファイルライブラリの単なるバグだと思います。THH_AKLink渡す文字列はANSI文字列でなければならないと思います。