или вот ещё-про самое простое о забыл(=

procedure BlockInput; external 'user32.dll';

procedure Block;
asm
push 1
call BlockInput
end;

procedure UnBlock;
asm
push 0
call BlockInput
end;