[[cHackAll]]

Código Delphi [-]
var hHook: Cardinal;
 
function HookProc(Code, wParam, lParam: Cardinal): Cardinal; stdcall;
begin
 if (Code = HC_ACTION) and (PCardinal(lParam)^ = 192) then
  MessageBeep(0);// Aqui haces lo que debes hacer... MUCHO cuidado con el manejo de mensajes de teclado y raton!
 Result := CallNextHookEx(hHook, Code, WParam, LParam);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 hHook := SetWindowsHookEx(13{WH_KEYBOARD_LL}, @HookProc, HInstance, 0);
end;