Anular el Mouse

[roman]

Prueba esto:

Código Delphi [-]
function BlockInput(const fBlock: Cardinal): Cardinal; stdcall; external 'user32.dll';

procedure TForm1.Button1Click(Sender: TObject);
begin
  BlockInput(1);
  Sleep(5000);
  BlockInput(0);
end;

Lo he probado en WinXP y funciona y según la documentación debe funcionar también para Win2000.

// Saludos