如何实现程序一段时间不动键盘鼠标就自动锁定的功能(200分)

L

liansz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-14

• #1

如果在Wndproc中判断鼠标和键盘的消息，会不会太频繁了，
我想实现的功能是类似屏幕保护一样的功能，一段时间
不动鼠标和键盘，就把程序加锁，回来要输入密码才能解锁

 

B

bbkxjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-14

• #2

如果用户启动了你的程序然后去使用另外一个程序呢？那样你的程序就接收不到鼠标键盘
的消息了。

 

L

liansz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-14

• #3

大家有没有什么好的方法？

 

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消息

 

W

wys205

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-24

• #6

L

 

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;

 

L

lincgroup

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-25

• #9

卷兄：能否详细一些？

 

Z

zyf23

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #10

GUAN ZHU

 

Y

YB_unique

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-01

• #11

？？？
有意思！今天看到两个问同一问题的帖子了！
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

Pc 狂迷

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-08

• #13

谢谢 卷起千堆雪tyn 前辈!

 

P

pinion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-08

• #14

这是我早几天类似的问题,还有原码~~看看呀,说不定有帮助~[]
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2263045