全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2290
推到 Plurk!
推到 Facebook!

請問我要如何偵測Windows滑鼠是否有在動作??

 
u8821003
一般會員


發表:12
回覆:9
積分:9
註冊:2005-04-02

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-09-15 12:38:41 IP:61.220.xxx.xxx 未訂閱

請問我要如何偵測Windows滑鼠是否有在動作??

其實我只是想知道電腦閒置多久了,

當使用者很久沒有動電腦的時候我就要把程式關掉!

請問要如何知道阿??

感謝大大!

change.jian
版主


發表:29
回覆:620
積分:439
註冊:2003-06-02

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-09-28 23:05:13 IP:61.62.xxx.xxx 未訂閱
很久沒有動電腦是指沒有讓你的視窗得到 focus 嗎?
===================引 用 文 章===================

請問我要如何偵測Windows滑鼠是否有在動作??

其實我只是想知道電腦閒置多久了,

當使用者很久沒有動電腦的時候我就要把程式關掉!

請問要如何知道阿??

感謝大大!

pertty
一般會員


發表:0
回覆:3
積分:0
註冊:2006-12-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-12-09 15:02:53 IP:58.218.xxx.xxx 未訂閱
做个系统级别的键盘HOOK和鼠标HOOK,监视是否有输入操作。
===================引 用 文 章===================
請問我要如何偵測Windows滑鼠是否有在動作??
其實我只是想知道電腦閒置多久了,
當使用者很久沒有動電腦的時候我就要把程式關掉!
請問要如何知道阿??
感謝大大!
Kingron
中階會員


發表:1
回覆:51
積分:60
註冊:2005-09-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2006-12-11 13:49:24 IP:61.143.xxx.xxx 未訂閱
参考这里:http://www.swissdelphicenter.ch/en/showcode.php?id=2018
当然也可以使用Hook来监测,麻烦一些,但可以支持Win9x,上面的方法只能支持Win2k以上。
------
超级猛料:http://kingron.delphibbs.com
zswang
一般會員


發表:0
回覆:1
積分:0
註冊:2006-11-22

發送簡訊給我
#5 引用回覆 回覆 發表時間:2006-12-22 18:42:13 IP:61.49.xxx.xxx 未訂閱
老K原来到这里来了,好久不见 :)
procedure TForm1.Timer1Timer(Sender: TObject);
var
vLastInputInfo: TLastInputInfo;
begin
vLastInputInfo.cbSize := SizeOf(vLastInputInfo);
GetLastInputInfo(vLastInputInfo);
Caption := Format('用户已经%d秒没动键盘鼠标了!',
[(GetTickCount - vLastInputInfo.dwTime) div 1000]);
end;

------
@.@>-
系統時間:2024-03-29 16:16:28
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!