Chamando arquivo de ajuda teclando F1

Olá, nesta matéria, vou mostrar algo bem simples, mas acredito ser bem útil. Vou mostrar como fazer a chamada de um arquivo de ajuda no formato chm ao teclar F1.

Pois bem, no seu formulário, adicione primeiramente a declaração da unit WinApi.ShellApi;

Em seguida, insira no evento FormKeyUp do formulário o seguinte código:

if (key = VK_F1) then
    ShellExecute(handle, 'open', 'C:\Windows\winsxs\amd64_server-help-chm.aclui.resources_31bf3856ad364e35_6.1.7600.16385_pt-br_2685468cf4bf2274\aclui.CHM', '', nil, sw_shownormal);  

No lugar de "C:\Windows\winsxs\...", coloque o caminho do seu arquivo de ajuda.

Agora é só dar F9 e testar.

Nota: VK_F1 é uma chave virtual. Para saber a sua definição, clique aqui. 

Veja a tabela de chaves virtuais neste outro blog.

Código fonte completo (Delphi XE2):

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Winapi.ShellAPI;

type
  TForm1 = class(TForm)
    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (key = VK_F1) then
    ShellExecute(handle, 'open', 'C:\Windows\winsxs\amd64_server-help-chm.aclui.resources_31bf3856ad364e35_6.1.7600.16385_pt-br_2685468cf4bf2274\aclui.CHM', '', nil, sw_shownormal);
end;

end.