Mega Code Archive
How to actually disable mouse and keyboard for N second(s)
<![CDATA[
Title: How to actually disable mouse and keyboard for N second(s)
Hi , this command can actually DISABLE mouse
and keyboard for N second , try it ;)
------------------------------------------------------------
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.Button1Click(Sender: TObject);
var xBlockInput : function (Block: BOOL): BOOL; stdcall;
begin
if FunctionDetect ('USER32.DLL', 'BlockInput', @xBlockInput) then
begin
xBlockInput (True); // Disable Keyboard & mouse
Sleep(10000); // Wait for for 10 Secounds
xBlockInput (False); // Enable Keyboard & mouse
end;
end;
------------------------------------------------------------
It works well ;)
Good Luck
]]>