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 在ms access数据库中图像的存储和显示

Delphi里动态创建access的交叉表视图

Delphi 流分割与合并文件的函数

Delphi richedit接受消息的问题

Delphi thttpclient posturl

Delphi 高权限进程实现拖曳文件操作

Delphi 7 中dbgrid的排序

Delphi vcl tmemo加速字符串读取

Delphi tcomport控件从串品读取数据

Delphi 超短精简进制转换

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

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