Delphi 检测用户超过多长时间没有操作键盘或鼠标

本文整理自网络，侵删。

 procedure TForm1.Timer1Timer(Sender: TObject);
var  vLastInputInfo: TLastInputInfo;
begin
vLastInputInfo.cbSize := SizeOf(vLastInputInfo); 
GetLastInputInfo(vLastInputInfo);
if GetTickCount - vLastInputInfo.dwTime > 5000 then
begin
timer1.Enabled:= false;
showmessage('超过5秒，用户未动鼠标！');
end;
end; 

相关阅读 >>

indy10下的tidhttp控件获取源码乱码的解决方法

Delphi中如何将一整个文件读入内存

Delphi with do和for do语句

Delphi 7 中的随机函数

Delphi登陆验证方法

Delphi 从twebbrowser webbrowser得到全部html源码

Delphi中始终用webbrowser打开网页

Delphi程序在每个windows 会话中只执行一次

Delphi判断某一个点是否在一个区域内

Delphi创建桌面快捷方式及锁定任务栏等功能

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 检测用户超过多长时间没有操作键盘或鼠标