var hHook: Cardinal;
function HookProc(Code, wParam, lParam: Cardinal): Cardinal; stdcall;
begin
if (Code = HC_ACTION) and (PCardinal(lParam)^ = 192) then
MessageBeep(0); Result := CallNextHookEx(hHook, Code, WParam, LParam);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
hHook := SetWindowsHookEx(13, @HookProc, HInstance, 0);
end;