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 tclientdataset的使用

Delphi firedac与ado读写数据的性能测试

Delphi 简单的操作memo1剪切 复制 粘贴 撤销 全选 清空

webbrowser自动填表模板

Delphi idhttp友好错误信息的捕获

tidtcpclient控件中文指南

Delphi vcl图像的二值化

Delphi 结束360safe和360保险箱进程 for Delphi

Delphi 自动复制到指定目录的代码

Delphi 合并两个 wav 文件流的函数

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

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