[Tutorial] Hotkeys Globais

Ok, eu si gente fazendo hotkeys usando timers, não tem nada de "errado" sobre isso.
Mas existem maneiras mais eficientes de se fazer isso.
bom... vou colocar o código direto aqui, é bem simples de entender.

Código:

unit Unit2;

interface

uses
**Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
**Dialogs, StdCtrls;

type
**TForm2 = class(TForm)
****procedure FormCreate(Sender: TObject);
****procedure FormDestroy(Sender: TObject);
**private
****procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
**public
****{ Public declarations }
**end;

var
**Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
**RegisterHotKey(form2.Handle,123,MOD_ALT+MOD_CONTROL+MOD_SHIFT,vk_f7); //registrar hotkey
**RegisterHotKey(form2.Handle,124,0,vk_f8); //registrar hotkey
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(form2.Handle, 123); //desregistrar hotkey
 UnregisterHotKey(form2.Handle, 124); //desregistrar hotkey
end;

procedure Tform2.WMHotKey(var Message: TMessage);
begin
**application.Restore;
**application.bringtofront;
**case message.WParam of
**123: showmessage('hotkey1');
**124: showmessage('hotkey2');
**end;
end;

end.

assim vc pode registrar n hotkeys e de uma maneira masi limpa e eficiente.

É isso, tomara que ajude.