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 indy防止假死

Delphi firedac数据库引擎连接mysql

Delphi 封装的tidhttp get post 请求

Delphi xe6 �c使用android的zlib

Delphi获取硬件信息

Delphi 7 中dbgrid的排序

Delphi processid, process handle, window handle 之间的互相转换

Delphi 获取系统所有磁盘盘符

Delphi label1 自动尺寸

Delphi xe增强的rtti妙用－－动态创建包中的窗口类

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

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