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

:D

// Saludos

[marceloalegre]

La segunda solucion dada por roman estuvo muy interesante jajajajaja! :)

[S.M.S.]

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:


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.