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;
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;