L liansz Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-14 #1 如果在Wndproc中判断鼠标和键盘的消息,会不会太频繁了, 我想实现的功能是类似屏幕保护一样的功能,一段时间 不动鼠标和键盘,就把程序加锁,回来要输入密码才能解锁
B bbkxjy Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-14 #2 如果用户启动了你的程序然后去使用另外一个程序呢?那样你的程序就接收不到鼠标键盘 的消息了。
C caowei Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-20 #4 建议在论坛中搜索一下: hook 用hook是比较好的方法. 想偷懒的话,可以尝试一下LMD里面的GlobalKey什么的...
鲁 鲁小班 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-20 #5 试试用TapplicationEvent的OnMessage消息
L luyear Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-25 #7 liansz:办法很多,在鼠标移动事件和按健事件里面写也是可以的 你的问题已经过期,要继续请提前,否则要被强制结束了,谢谢
卷 卷起千堆雪tyn Unregistered / Unconfirmed GUEST, unregistred user! 2001-10-25 #8 其实就是锁与解锁的问题了。 // 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;
其实就是锁与解锁的问题了。 // 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;
Y YB_unique Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-01 #11 ??? 有意思!今天看到两个问同一问题的帖子了! http://www.delphibbs.com/delphibbs/dispq.asp?lid=701176 不想用HOOK的话,就参考我的方法,绝对有效!
??? 有意思!今天看到两个问同一问题的帖子了! http://www.delphibbs.com/delphibbs/dispq.asp?lid=701176 不想用HOOK的话,就参考我的方法,绝对有效!
L liansz Unregistered / Unconfirmed GUEST, unregistred user! 2002-02-15 #12 TO YB_unique, 问题 是我要求的是只有我的应用程序锁定,而不是整个系统锁定,就是其他程序还能够 运行,使用钩子可以做到,我已试过,谢谢
P pinion Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-08 #14 这是我早几天类似的问题,还有原码~~看看呀,说不定有帮助~[] http://www.delphibbs.com/delphibbs/dispq.asp?lid=2263045