HTML 帮助关键字查找

Question

我无法弄清楚如何进行关键字查找 ( HH_KEYWORD_LOOKUP）以在 HTML 帮助中工作。 如果我有一个显示如下的索引：

Machine
    Add
    Edit
    Selection

如何指定显示机器选择的关键字搜索？ “机器；选择”调出机器关键字； “选择”和“机器选择”根本不起作用； “机器，选择”也不会，即使如果用户手动选择适当的主题，HTML 帮助查看器的“索引”选项卡中也会显示该内容。

Answer 1

我想我读到（在我的许多谷歌搜索中）HH_KEYWORD_LOOKUP 在 HTML 帮助中被破坏了，叹息。 于是我想出了这个解决方案来进行搜索。 它将打开 chm 文件并在搜索框中输入关键字，然后按 ENTER 键手动进行搜索。

procedure PostKey(aKey: Word; const aShift: TShiftState; aSpeciaKey: Boolean);
type
  TShiftKeyInfo = record
    shift: Byte;
    vkey: Byte;
  end;
  byteset = set of 0..7;
const
  shiftkeys: array [1..3] of TShiftKeyInfo =
    ((shift: Ord(ssCtrl); vkey: VK_CONTROL),
    (shift: Ord(ssShift); vkey: VK_SHIFT),
    (shift: Ord(ssAlt); vkey: VK_MENU));
var
  flag: DWORD;
  bShift: ByteSet absolute aShift;
  i: Integer;
begin
  for i := 1 to 3 do
  begin
    if shiftkeys[i].shift in bShift then
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
  end; { For }
  if aSpeciaKey then
    flag := KEYEVENTF_EXTENDEDKEY
  else
    flag := 0;
  keybd_event(aKey, MapvirtualKey(aKey, 0), flag, 0);
  flag := flag or KEYEVENTF_KEYUP;
  keybd_event(aKey, MapvirtualKey(aKey, 0), flag, 0);
  for i := 3 downto 1 do
  begin
    if shiftkeys[i].shift in bShift then
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0),
        KEYEVENTF_KEYUP, 0);
  end; { For }
end;

procedure CHMSearch(aCHMFilename, aSearch: string);
var
  cfn: string;
  qry: THHFtsQuery;
  hnd: HWND;

  procedure DoSearch(aMsg: string);
  var
    i,n: Integer;
    c: Char;
    shift: TShiftState;
  begin
    if hnd = 0 then Exit;
    Windows.SetFocus(hnd);
    n := Length(aMsg);
    if n > 0 then
    begin
      for i := 1 to n do
      begin
        c := aMsg[i];
        shift := [];
        case c of
          'a'..'z': shift := [];
          'A'..'Z': shift := [ssShift];
          '_': // underscore key
          begin
            keybd_event(VK_SHIFT, 0, 0, 0);
            keybd_event(VK_OEM_MINUS, 0, 0, 0);
            keybd_event(VK_OEM_MINUS, 0, KEYEVENTF_KEYUP, 0);
            keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
            continue;
          end;
          '
: // $ key
          begin
            PostKey(Ord('4'), [ssShift], False);
            continue;
          end;

        end;
        PostKey(Ord(UpCase(c)), shift, False);
      end;
      PostKey(VK_RETURN, [], False);
      PostKey(VK_RETURN, [], False);
    end;
  end;

begin
  cfn := ChangeFileExt(aCHMFilename, '.chm');
  FillChar(qry, SizeOf(qry), 0);
  qry.cbStruct := SizeOf(THHFtsQuery);
  qry.fExecute := TRUE;
  HH.HtmlHelpA(GetDesktopWindow, PAnsiChar(AnsiString(cfn)), HH_DISPLAY_TOC, 0);
  hnd := HH.HtmlHelpA(GetDesktopWindow, PAnsiChar(AnsiString(cfn)), HH_DISPLAY_SEARCH,
    Cardinal(@qry));
  DoSearch(aSearch);
end;

Answer 2

啊哈！！！

经过一个小时的打字和尝试，我发现一级关键字和二级关键字之间需要两个空格，最后需要一个“Enter”键才能显示第二级关键字链接的主题！！！！

记住，正好两个空格！ 一三个不行。 诀窍是，在输入第二个空格和第二个关键字时，关键字列表中的其他一些关键字会突出显示，这会让您认为您已经犯了错误，并且不会继续完成第二个关键字的输入！ 这是微软工程师的恶作剧吗？

然而，尽管它可以手动工作，但软件 API 似乎并不能立即与两个空间一起工作。 如果我在按下 F1 键时在 C# 中调用以下 API（我必须使用“空格”来表示此处的空格，因为如果我使用实际空格，该网站会将两个空格修剪为一个）：

System.Windows.Forms.Help.ShowHelp(这个，“file:///C:/apps/MyHelpContentNew/QACT.chm”，System.Windows.Forms.HelpNavigator.KeywordIndex，“key2'space''space'x_subkey_of_key2”）；

它不显示从 x_subkey_of_key2 链接的主题。 但它几乎就在那里，帮助窗口显示了在搜索文本框中输入的正确的两个级别的关键字，只缺少一个“Car-Return”！

然后我尝试添加这样的回车：

System.Windows.Forms.Help.ShowHelp(this, "file:///C:/apps/MyHelpContentNew/QACT.chm", System.Windows.Forms.HelpNavigator. KeywordIndex, "key2'空格''空格'x_subkey_of_key2\n");

它也不起作用。 所以我想我需要通过编程将还车钥匙发送到帮助窗口。 如果我实施它，就会发布。