请问如何锁定鼠标和键盘 请问如何锁定鼠标和键盘,有源码的最好提供,本人菜鸟!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 把系统热键全部Disable,然后弄一个无标题无边框的全屏表单 // Import BlockInput function form user32.dll: // BlockInput Funktion von user32.dll importieren: function BlockInput(fBlockInput: Boolean): DWORD; stdcall; external 'user32.DLL'; {block input/ blockieren} procedure TForm1.Button1Click(Sender: TObject); begin BlockInput(True); end; {Unblock input / Blockierung aufheben} procedure TForm1.Button2Click(Sender: TObject); begin BlockInput(False); end; TO fei19790920:你的方法确实实现了锁键盘和鼠标,但锁定后,如果按Ctrl+Alt+Del,再点取消,则会自动解锁,这是为什么啊,如何解决,谢谢 delphi 实现阶段性的进度条--最好网格控件的某列 急,在线等。。高手进。。 进度条+ADO用法? SHFileOperation的问题,还请各位高手赐教。 怎么样用程序实现生成postscript文件? 问个新手的问题! dephi编的数据库程序在98下不能用?是不是必须装一个叫什么bde的东西? 上次莫名其妙的因为信誉分最低得了70.故这次悬红200分揖拿信誉份最高者!请信誉分高者来自首! 再问?? 请教CppWebBrowser怎么把它的内容存储成图片? 求一SQL语句 如何求一个日期值的年、月、日值?
// BlockInput Funktion von user32.dll importieren: function BlockInput(fBlockInput: Boolean): DWORD; stdcall; external 'user32.DLL'; {block input/ blockieren} procedure TForm1.Button1Click(Sender: TObject);
begin
BlockInput(True);
end; {Unblock input / Blockierung aufheben} procedure TForm1.Button2Click(Sender: TObject);
begin
BlockInput(False);
end;
你的方法确实实现了锁键盘和鼠标,但锁定后,如果按Ctrl+Alt+Del,再点取消,则会自动解锁,
这是为什么啊,如何解决,谢谢