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!