社区
Delphi
帖子详情
怎将封锁鼠标和/或键盘
PoolD
2000-08-19 12:50:00
怎样通过代码封锁鼠标和/或键盘,使用户无法输入?
...全文
178
5
打赏
收藏
怎将封锁鼠标和/或键盘
怎样通过代码封锁鼠标和/或键盘,使用户无法输入?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
yanyuwuhen
2001-05-03
打赏
举报
回复
锁不住alt+f4
StarRainBow
2000-08-21
打赏
举报
回复
BTW,以上代码可以同时锁住鼠标和键盘。
StarRainBow
2000-08-21
打赏
举报
回复
唉,小子你在逼我卖血呀,一点老底都要掏空,不过你答应加分,嘿嘿,多给点分。
下列是代码:
———————————
var KHK: HHook;
tmp: integer;
function HookProc(ICode: integer;WP:WParam;LP:LParam):LResult;
begin
Result:=CallNextHookEx(KHK,0,0,0);
end;
使用下列语句开始锁定:
KHK:=SetWindowsHookex(WH_JOURNALPLAYBACK,@HookProc,HInstance,0);
使用下列语句结束锁定:
UnHookWindowsHookEx(KHK);
这时候不能屏蔽Windows的系统键Ctrl-Alt-Tab,Ctrl-Esc,Alt-Tab等
你就可以使用:
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @tmp, 0);//锁起来
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @tmp, 0);//打开吧
______________________
记住多给点分。
要是不灵的话,就把代码作成DLL。
PoolD
2000-08-20
打赏
举报
回复
to StarRainBow:
您提供的封锁键盘的方法,只能够限制用户在自己窗体上的输入。
而现在我需要封锁整个WINDOWS下的键盘输入。
如果分数不够的话可以加分。
StarRainBow
2000-08-20
打赏
举报
回复
小子够黑,做什么呢?
锁鼠:ClipCursor(Rect(0,0,0,0));
鼠标解锁:ClipCursor(Rect(0,0,Screen.Width,Screen.Height));
锁键盘(限于可打印字符):先把Form.KeyPreview:=True;再响应OnKeyPress,加入:Key:=#0;
键盘解锁:Form.KeyPreview:=False;
想完全锁死键盘?呵呵,不告诉你。
封锁
键盘
鼠标
的源程序
封锁
键盘
鼠标
的源程序
计算机
键盘
鼠标
封锁
器
此软件可以
封锁
键盘
鼠标
,除了按j+z键以外,任何键都不起作用,
键盘
鼠标
锁
封锁
器,个人电脑安全卫士
非常好的临时离开计算机时,个人电脑的保安全软件,且不占用内存。
全力保护计算机安全 创鸿发布USB接口硬件
封锁
芯片
有鉴于计算机外设装置控管的需求日益增加,安全厂商创鸿科技(SECOtek)于日前开发出USB接口硬件
封锁
装置─I/O控制装置,该装置除了针对USB接口产品加以
封锁
外,PS/2接口也在其管控范围,并可限制计算机的使用时间。主板及USB装置只需内建该控制芯片,所有的USB及PS/2接口装置(包含
鼠标
与
键盘
)都可以通过无线遥控而限制存取,不须经由中央处理器控制,桌面计算机、笔记本计算机、服务器、外围装置全部适用此硬件控管装置。 创鸿科技负责人锺启能表示,此专利装置是一项创新发明,配置此装置的计算机将可集中管理所有的I/O接口,例如完全无法使用
鼠标
、
键盘
、上网、打印、光驱、硬盘,或者只能使用鼠
全力保护计算机安全,创鸿发布USB接口硬件
封锁
芯片..
有鉴于计算机外设装置控管的需求日益增加,安全厂商创鸿科技(SECOtek)于日前开发出USB接口硬件
封锁
装置─I/O控制装置,该装置除了针对USB接口产品加以
封锁
外,PS/2接口也在其管控范围,并可限制计算机的使用时间。主板及USB装置只需内建该控制芯片,所有的USB及PS/2接口装置(包含
鼠标
与
键盘
)都可以通过无线遥控而限制存取,不须经由中央处理器控制,桌面计算机、笔记本计算机、服务器、外围装置全部适用此硬件控管装置。 创鸿科技负责人锺启能表示,此专利装置是一项创新发明,配置此装置的计算机将可集中管理所有的I/O接口,例如完全无法使用
鼠标
、
键盘
、上网、打印、光驱、硬盘,或者只
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章