[Prisoner]

А так?

Код:

procedure BlockInput; external 'user32.dll';

procedure Block;
asm
  push 1;
  call BlockInput;
end;

procedure UnBlock;
asm
  push 0;
  call BlockInput;
end;