請問我要如何偵測Windows滑鼠是否有在動作?? |
|
u8821003
一般會員 發表:12 回覆:9 積分:9 註冊:2005-04-02 發送簡訊給我 |
|
change.jian
版主 發表:29 回覆:620 積分:439 註冊:2003-06-02 發送簡訊給我 |
|
pertty
一般會員 發表:0 回覆:3 積分:0 註冊:2006-12-09 發送簡訊給我 |
|
Kingron
中階會員 發表:1 回覆:51 積分:60 註冊:2005-09-14 發送簡訊給我 |
参考这里:http://www.swissdelphicenter.ch/en/showcode.php?id=2018
当然也可以使用Hook来监测,麻烦一些,但可以支持Win9x,上面的方法只能支持Win2k以上。
------
超级猛料:http://kingron.delphibbs.com |
zswang
一般會員 發表:0 回覆:1 積分:0 註冊:2006-11-22 發送簡訊給我 |
老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;
------
@.@>- |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |