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 randstring 随机字符串

Delphi 解析json生成json

Delphi inputbox 输入时显示*号

Delphi 检测判断字符串是否包含有中文字符

Delphi 下载并显示网上的图片

Delphi 变体数组

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi窗口显示和关闭的时候出现动画效果

汇编文档进制及进制的转换

Delphi treeview添加背景图片

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

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