上传者: 39840924
|
上传时间: 2022-01-19 18:39:12
|
文件大小: 6KB
|
文件类型: -
本源码主要演示Delphi 锁定鼠标和键盘 10秒后解锁,数字键、字母键和大部分功能键以及鼠标全部键都将锁定不能操作,但对键盘中的“Power”键、“Sleep”键、“WakeUp”键无效。锁定10秒后会自动解锁。
begin
if lock('USER32.DLL', 'BlockInput', @forbid) then
begin
forbid(True); // 禁止键盘鼠标
Sleep(10000); // 等待10秒
forbid(False); // 允许键盘鼠标
end;
end;