chm - palabras - keywords ejemplos

Búsqueda de palabras clave de la Ayuda HTML

Question

Tengo problemas para averiguar cómo obtener búsquedas de palabras clave ( HH_KEYWORD_LOOKUP ) para que funcionen en la Ayuda HTML. Si tengo un índice que se muestra así:

Machine
    Add
    Edit
    Selection

¿Cómo especifico una búsqueda por palabra clave que abre la Selección de máquina? "Machine; Selection" muestra la palabra clave Machine; "Selección" y "Selección de máquina" no funcionan en absoluto; tampoco lo hace "Máquina, Selección", aunque eso es lo que se muestra en la pestaña Índice del Visor de Ayuda HTML si el usuario selecciona manualmente el tema apropiado.

Answer 1

Creo que leí (en mis muchas búsquedas en Google) que HH_KEYWORD_LOOKUP está roto en la ayuda HTML, suspiro. Así que se me ocurrió esta solución para hacer una búsqueda. Aparecerá el archivo chm e ingresará la palabra clave en el cuadro de búsqueda y presione la tecla ENTRAR para realizar la búsqueda manualmente.

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

Ahaa !!!

Después de una hora escribiendo y probando, descubrí que se necesitan DOS ESPACIOS entre la palabra clave de primer nivel y la palabra clave de segundo nivel, y finalmente se necesita una tecla "Enter" para mostrar el tema vinculado desde la segunda palabra clave.

Recuerde, exactamente dos espacios! uno o tres no funciona. El truco es, al escribir el segundo espacio y la segunda palabra clave, resaltar algunas otras palabras clave en la lista de palabras clave, lo que puede hacer que pienses que ya cometiste un error y que no continuaría escribiendo la segunda palabra clave. ¿Es esto un engaño del ingeniero de Microsoft?

Sin embargo, aunque funciona manualmente, parece que la API de software no funciona inmediatamente con los DOS espacios. Si llamo a la siguiente API en C # con la tecla F1 presionada (tengo que usar "espacio" para representar un espacio aquí porque este sitio web recorta dos espacios si utilizo el espacio real):

System.Windows.Forms.Help.ShowHelp (esto, "file: /// C: /apps/MyHelpContentNew/QACT.chm", System.Windows.Forms.HelpNavigator.KeywordIndex, "key2''space''''space''x_subkey_of_key2" );

no muestra el tema vinculado desde x_subkey_of_key2. Pero casi está allí, la Ventana de Ayuda aparece con las palabras clave correctas de dos niveles puestas en la búsqueda TextBox, ¡y solo falta un "Car-Return"!

Luego traté de agregar el retorno del auto así:

System.Windows.Forms.Help.ShowHelp (esto, "archivo: /// C: /apps/MyHelpContentNew/QACT.chm", System.Windows.Forms.HelpNavigator.KeywordIndex, "espacio_espacio''espacio''x_subkey_de_key2 / norte");

Tampoco funciona. Así que supongo que necesito enviar una clave de devolución de carro a la ventana de ayuda de forma programada. Publicaré si alguna vez lo implementé.