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 静态数组的定义方法

Delphi 动态调用chm文件

Delphi 修改盘符名称

Delphi 如何在桌面添加右键菜单

Delphi判断不同格式的时间是否相等

Delphi过程函数传递参数的八种方式

Delphi 对非活动窗口进行屏幕截图

Delphi从内存(memorystream)使用wmp

Delphi android device information

Delphi 获取打开的记事本中的内容

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...