Delphi 锁定鼠标和键盘 10秒后解锁.rar

时间:2022-07-30 04:47:13
【文件属性】:

文件名称: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)

网友评论