本源码主要演示Delphi 锁定鼠标和键盘 10秒后解锁,数字键、字母键和大部分功能键以及鼠标全部键都将锁定不能操作,但对键盘中的“Power”键、“Sleep”键、“WakeUp”键无效。锁定10秒后会自动解锁。
begin
if lock('USER32.DLL', 'BlockInput', @forbid) then
begin
forbid(True); // 禁止键盘鼠标
Sleep(10000); // 等待10秒
forbid(False); // 允许键盘鼠标
end;
end;
1