[lmikle]

Еще туда же:

If you insert next lines at unit and get
function KeyboardProc free from any text your's program will not answer to keyboard...
initialization
begin
CurrKeyEater:=nil;
myhook:= SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc,0,GetCu rrentThreadId);
end;
finalization
begin
UnhookWindowsHookEx(myhook);
CurrKeyEater:=nil;
end;

If you need to block ALL applications - use next format
SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc,0,0);
but function KeyboardProc OUGHT be at DLL!!!

So Only Mouse will work...