Display the full text search tab of a help file

Problem/Question/Abstract:

You know how to display the table of contents of a help file, but how can you switch directly to the full text search tab?

Answer:

Solve 1:

You can use the Winhelp macro "Find()". Here is an example:

procedure TForm1.ShowFulltextsearch;
var
  command: array[0..255] of Char;
begin
  command := 'FIND()';

  {Ensure that the Application.HelpFile is displayed}
  application.helpcommand(HELP_FORCEFILE, 0);

  {Open the finder window and switch to the search tab}
  application.helpcommand(HELP_COMMAND, Longint(@command));
end;


Solve 2:

procedure ShowHelpTab;
const
  Tab = 15;
  Find = -1;
  Index = -2;
  Contents = -3;
begin
  Application.HelpCommand(Tab, Find);
end;