[Crack502]

Помогите пожалуйста:
Как сделать, чтобы программа реагировала на нажатие клавиш (задать горячие клавиши):
Программа сидит в процессах, и при нажатии на клавишу, например, ctrl+d выдает сообщение или происходит какое-либо дейсивие.

[AND_REY]

Код:

private
    procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;

var
 id : DWORD;

procedure TForm1.FormActivate(Sender: TObject);
Const
 VK_D = 68;
begin
 id:= GlobalAddAtom('Hotkey1');
 RegisterHotKey(Form1.Handle, id, MOD_CONTROL, VK_D);
end;

procedure TForm1.WMHotKey(var Message: TMessage);
begin
 Showmessage('Нажата Ctrl+d');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnregisterHotKey(Form1.Handle, id);
end;

[Crack502]

Спасибо огромное. Попробую