[Crack502]

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

[AND_REY]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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]

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