Hi
das geht eigendlich ganz einfach und wirksam

aber aufpassen dan geht nixx mehr bis er das ausstellt also nich vergessen
Code:
implementation
Function BlockInput(fBlock: boolean): boolean; stdcall;
external 'user32.dll'
und dann anchher in der procedure:
Code:
BlockInput(True);
//bzw
BlockInput(False);
mfg
DeeJay