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; 

相关阅读 >>

Delphi 关闭指定窗口标题的窗口

delphDelphi chromium embedded 清除指定链接浏览器缓存、cookies

Delphi编程之win10桌面图标设置

Delphi中从dll,exe,icl中提取图标

Delphi format中的换行符号是什么

Delphi获取mac地址

Delphi xe的firemonkey获取当前文件所在路径的方法

Delphi 获得父目录�c指定级父目录

Delphi读取webbrowse中的图片显示在image中

Delphi 如何读取内存中的数据?

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

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