Anular el Mouse

[[marceloalegre]]

La segunda solucion dada por roman estuvo muy interesante jajajajaja!

[S.M.S.]

Código Delphi [-]
implementation

procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL';

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  BlockInput(True); //desactiva teclado y ratón
  Sleep(5000);
  BlockInput(False);//vuelve a activarlos
end;

Saludos.

[[marceloalegre]]

sms, el ultimo esta muy bueno para bloquear teclado pero es solo para win98 por la dll, saludos!

[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

[DarKraZY]

Funciona en 98, ME, 2000 y XP (ya que los he probado). Sólo decir que también bloquea el teclado. Pero si alguien presiona CTRL+ALT+SUPR.... pues ya no sirve.