Delphi检测用户超过5分钟没有操作键盘或鼠标

本文整理自网络，侵删。

 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 用正则表达式检查一个串是否是电信的手机号

Delphi 超短精简进制转换

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi读取和写入utf-8编码格式的文件

createremotethread远程注入例子

Delphi 中文urlencode的简单办法

Delphi 关于位图的像素格式

Delphi 通过idhttp实现登录验证

Delphi 连接 ssl tls 1.2

Delphi firedac连接oracle

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

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