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