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 用dll实现插件的简单演示

Delphi 下载并显示网上的图片

Delphi中提取网址链接分路径

Delphi使用进行post数据时超时设置

Delphi操作access数据库

Delphi 2009 之 tstringbuilder 类[4]: insert 与 remove

Delphi scrollbox1滚动框鼠标滚轮

Delphi 通用字符串函数

Delphi中判断webbrowser的页面是否加载完成

Delphi 格式化输出函数(2): formatdatetime

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

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