如何判断用户一定时间内无鼠标键盘操作(40)

A

analyst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-23

• #1

如何判断用户一定时间内无鼠标键盘操作

 

S

siking

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-23

• #2

用一个定时器判断有无鼠标键盘消息

 

A

analyst

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-24

• #3

像MSN一样一定时间没操作电脑就显示为离开，怎么做呀？

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-23

• #4

//时间（毫秒）function Get_Sys_idle_Time: Dword;Var plii: TLastInputInfo;Begin plii.cbSize := sizeof(plii); Windows.GetLastInputInfo(plii); Result := (Windows.GetTickCount - plii.dwTime);end;

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-24

• #5

唉，都说到这份上了，还没想法？...

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-24

• #6

function Get_Sys_idle_Time: Dword;Var plii: TLastInputInfo;Begin plii.cbSize := sizeof(plii); Windows.GetLastInputInfo(plii); Result := (Windows.GetTickCount - plii.dwTime);end;procedure TForm1.Timer1Timer(Sender: TObject);begin If Get_Sys_idle_Time > 5000 Then //5秒无操作，视为离开 Caption := '离开' Else caption := '在线';end;procedure TForm1.FormCreate(Sender: TObject);begin Timer1.Interval := 100; Timer1.Enabled := True;end;

 

T

tandxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-24

• #7

学习楼上的

 

S

scxujie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-24

• #8

盒子上有现成的,以前的帖子也有啊，全文检索一下

 

X

xnnfan126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-24

• #9

路过，学习学习

 

S

sky-_-520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-25

• #10

学习学习！！！[]

 

W

wjy1986

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-06-25

• #11

学习一下