function SetWindowsHookEx(
Тип ловушки(в данном случае WH_KEYBOARD);
Указатель на процедуру ловушки;
Идентификатор DLL содержащую процедуру ловушки(ноль если она внутри кода);
ThreadId: DWORD(0 - само то):
Result = HHOOK; Если всё ничтяк - дескриптор проц. ловушки.
function UnhookWindowsHookEx удалит ловушку из системы
function KeyboardProc (nCode:integer; wParam, LPARAM:Longint):Longint;
Твоя процедура ловушки. Внутри должна вызываться функция
function CallNextHookEx(hhk: HHOOK; nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT;
Result = 0 (Иначе сообщение не будет передано остальным ловушкам системы
)