Bloquear TEclado e Mouse

essa biblioteca tem muitas funcoes de controle do mouse, vc pode ocultar o ponteiro do mouse para bloquear o acesso, segue abaixo a unit:

unit tbMouse;

interface

uses Windows, Controls, Messages, Forms;

{ Simula - click de mouse }
procedure MouseClick(const Duration: Word);
{ Aprisiona o mouse em um retângulo }
function MouseClip(const Rct: TRect): boolean;
{ Retorna o número de botőes do mouse }
function MouseGetButtons: byte;
{ Retorna a posiç&259;o do mouse }
function MouseGetPos(var Pt: TPoint): boolean;
{ Retorna true se o mouse está sobre a janela }
function MouseInWindow(const WinHandle: HWnd): boolean;
{ Retorna true se o mouse está configurado }
function MouseIsPresent: boolean;
{ Move o ponteiro do mouse para um controle (componente visual) }
function MouseMoveToControl(const Control: TControl): boolean;
{ Define a posiçăo do mouse }
function MouseSetPos(const Pt: TPoint): boolean;
{ Exibe ou oculta o ponteiro do mouse }
function MouseShowCursor(const Show: boolean): boolean;
{ Deslisa o ponteiro do mouse até um controle }
function MouseSlideToControl(const Control: TControl; Jump, JumpTime: Word): boolean;
{ Inverte os bot&337;es do mouse }
function MouseSwapButtons(const Swap: boolean): boolean;
{ Retorna true se os bot&337;es est&259;o invertidos }
function MouseSwappedButtons: boolean;
{ Libera o mouse - previamente aprisionado com MouseClip }
function MouseUnClip: boolean;

implementation

{ *** Mouse *** }
procedure MouseClick(const Duration: Word);
var
Win: HWnd;
Pt: TPoint;
Msg: TMsg;
FlagMouseDown, FlagMouseUp: DWord;
begin
{ Se os bot&337;es estiverem invertidos... }
if MouseSwappedButtons then begin
FlagMouseDown := MOUSEEVENTF_RIGHTDOWN;
FlagMouseUp := MOUSEEVENTF_RIGHTUP;
end else begin; { Se os botőes estiverem normais... }
FlagMouseDown := MOUSEEVENTF_LEFTDOWN;
FlagMouseUp := MOUSEEVENTF_LEFTUP;
end;

{ Obtém o handle da janela que está sob o cursor }
Windows.GetCursorPos(Pt);
Win := Windows.WindowFromPoint(Pt);

{ Inicia o click }
mouse_event(FlagMouseDown, 0, 0, 0, 0);

{ Processa as mensagens do mouse pertencentes &341; janela sob o cursor }
while PeekMessage(Msg, Win, WM_LBUTTONDOWN, WM_LBUTTONDOWN, PM_REMOVE) do
DispatchMessage(Msg);

Sleep(Duration);

{ Conclui o click }
mouse_event(FlagMouseUp, 0, 0, 0, 0);
end;

function MouseClip(const Rct: TRect): boolean;
begin
Result := Windows.ClipCursor(@Rct);
end;

function MouseGetButtons: byte;
begin
Result := GetSystemMetrics(SM_CMOUSEBUTTONS);
end;

function MouseGetPos(var Pt: TPoint): boolean;
begin
Result := Windows.GetCursorPos(Pt);
end;

function MouseInWindow(const WinHandle: HWnd): boolean;
var
Pt: TPoint;
begin
Result := GetCursorPos(Pt) and (WindowFromPoint(Pt) = WinHandle);
end;

function MouseIsPresent: boolean;
begin
Result := GetSystemMetrics(SM_MOUSEPRESENT) <> 0;
end;

function MouseMoveToControl(const Control: TControl): boolean;
var
Pt: TPoint;
begin
Pt.x := Control.Width div 2;
Pt.y := Control.Height div 2;
Pt := Control.ClientToScreen(Pt);
Result := SetCursorPos(Pt.X, Pt.Y);
end;

function MouseSetPos(const Pt: TPoint): boolean;
begin
Result := Windows.SetCursorPos(Pt.X, Pt.Y);
end;

function MouseShowCursor(const Show: boolean): boolean;
var
I: integer;
begin
I := ShowCursor(LongBool(true));
if Show then begin
{ ShowCursor(true) incrementa um contador interno do Windows.
Quando este contador ficar >= 0, entăo o cursor é exibido }
Result := I >= 0;
while I < 0 do begin
Result := ShowCursor(LongBool(true)) >= 0;
Inc(I);
end;
end else begin
{ ShowCursor(false) decrementa um contador interno do Windows.
Quando este contador ficar < 0, ent&259;o o cursor é ocultado }
Result := I < 0;
while I >= 0 do begin
Result := ShowCursor(LongBool(false)) < 0;
Dec(I);
end;
end;
end;

function MouseSlideToControl(const Control: TControl; Jump, JumpTime: Word): boolean;
var
ToPoint, Pt: TPoint;

function ExecJump: boolean;
begin
if (Pt.x = ToPoint.x) and (Pt.y = ToPoint.y) then begin
Result := false; { Chegou }
Exit;
end;
{ Calcula X }
if Pt.x < ToPoint.x then begin
Inc(Pt.x, Jump);
if Pt.x > ToPoint.x then { Se passou... }
Pt.x := ToPoint.x;
end else if Pt.x > ToPoint.x then begin
Dec(Pt.x, Jump);
if Pt.x < ToPoint.x then
Pt.x := ToPoint.x;
end;
{ Calcula Y }
if Pt.y < ToPoint.y then begin
Inc(Pt.y, Jump);
if Pt.y > ToPoint.y then { Se passou... }
Pt.y := ToPoint.y;
end else if Pt.y > ToPoint.y then begin
Dec(Pt.y, Jump);
if Pt.y < ToPoint.y then
Pt.y := ToPoint.y;
end;
Result := SetCursorPos(Pt.x, Pt.y);
end;

begin
if Jump = 0 then
Jump := 1;

SetCursor(Screen.Cursors[Control.Cursor]);
with Control do begin
ToPoint.x := Width div 2;
ToPoint.y := Height div 2;
ToPoint := ClientToScreen(ToPoint);
end;
if GetCursorPos(Pt) then
while ExecJump do Sleep(JumpTime);

Result := GetCursorPos(Pt) and
(Pt.x = ToPoint.x) and (Pt.y = ToPoint.y);
end;

function MouseSwapButtons(const Swap: boolean): boolean;
begin
Result := Windows.SwapMouseButton(LongBool(Swap));
end;

function MouseSwappedButtons: boolean;
begin
Result := GetSystemMetrics(SM_SWAPBUTTON) <> 0;
end;

function MouseUnClip: boolean;
begin
Result := Windows.ClipCursor(nil);
end;

end.

e para bloquear teclado alguém sabe?

Colega,

você pode usar a API não documentada BlockInput. Veja mais no link abaixo.

:arrow: http://www.swissdelphicenter.ch/en/printcode.php?id=312

Ao compilar o código o teclado e o mouse ficarão bloqueados por 10 segundos. Altere de acordo com o sua necessidade. Não se esqueça de salvar tudo antes... se der algum erro (hehehe)...

Esta procedure bloqueia o teclado e o mouse.

procedure BlockInput(ABlockInput : Boolean); stdcall; external ´USER32.DLL´;

procedure TForm1.Button1Click(Sender: TObject);
begin
BlockInput(True); //Bloqueia
Sleep(5000); //Espera 5 segundos para testar
BlockInput(False); //Desbloqueia por segurança
end;