键盘鼠标

Question

如何禁用用户的键盘和鼠标?

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var  xBlockInput : function (Block: BOOL): BOOL; stdcall;
begin
  if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then
   begin    xBlockInput (True);  // 禁止键盘鼠标
     Sleep(10000);       // 等待10秒
     xBlockInput (False); // 允许键盘鼠标
     end;
   end;end.

Answer 2

function FunctionDetect (LibName, FuncName: String; var LibPointer: Pointer): boolean;
var  LibHandle: tHandle;
begin
  Result := false;  LibPointer := NIL;
  if LoadLibrary(PChar(LibName)) = 0 then exit;
  LibHandle := GetModuleHandle(PChar(LibName));
  if LibHandle <> 0 then begin
    LibPointer := GetProcAddress(LibHandle, PChar(FuncName));
    if LibPointer <> NIL then Result := true;    end;
end;procedure TForm1.Button3Click(Sender: TObject);
var  xBlockInput : function (Block: BOOL): BOOL; stdcall;
begin
  if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then
   begin    xBlockInput (True);  // 禁止键盘鼠标
     Sleep(10000);       // 等待10秒
     xBlockInput (False); // 允许键盘鼠标
     end;
   end;end