文件名称:Delphi 锁定鼠标和键盘 10秒后解锁.rar
文件大小:6KB
文件格式:RAR
更新时间:2022-07-30 04:47:13
Delphi源码-系统相关
本源码主要演示Delphi 锁定鼠标和键盘 10秒后解锁,数字键、字母键和大部分功能键以及鼠标全部键都将锁定不能操作,但对键盘中的“Power”键、“Sleep”键、“WakeUp”键无效。锁定10秒后会自动解锁。 begin if lock('USER32.DLL', 'BlockInput', @forbid) then begin forbid(True); // 禁止键盘鼠标 Sleep(10000); // 等待10秒 forbid(False); // 允许键盘鼠标 end; end;
【文件预览】:
srcfans.com
----锁定鼠标和键盘()
--------Unit1.ddp(51B)
--------Project1.res(876B)
--------Unit1.dcu(4KB)
--------Unit1.dfm(897B)
--------Project1.cfg(434B)
--------程序使用说明.txt(60B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.pas(1KB)