API - bloquear teclado e mouse

// bloquear teclado e mouse (w98, w2k, xp)

function BlockInput (fBlockInput : boolean) : DWord; stdcall; external

'user32.DLL';

procedure TForm1.Button1Click(Sender: TObject);

begin

 BlockInput(true);

end;