Anular el Mouse

[[marceloalegre]]

Alguien sabe como anular o sea desactivar el mouse? Calculo que habra que usar un hook, pero realmente estoy perdido en el tema...
Alguien tendra algun codigo para guiarme con este tema... lo que ando necesitando en desactivarlo y activarlo de acuerdo al momento...

Muchas gracias.

[droguerman]

showCursor(false); //no ratón
showCursor(true); //sí ratón

[roman]

ShowMessage('Por favor desconecte el mouse'); // no ratón
ShowMessage('Por favor conecte el mouse'); // sí ratón



// Saludos

[[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.