delphi内如何检测用户多长时间没有鼠标与键盘操作?

最新推荐文章于 2021-10-26 21:40:14 发布
原创 最新推荐文章于 2021-10-26 21:40:14 发布 · 203 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本程序通过获取最后输入信息的时间戳来判断用户是否长时间未进行键盘或鼠标的操作，并实时更新显示用户静止不动的时长。

procedure TForm1.Timer1Timer(Sender: TObject);
var
  vLastInputInfo: TLastInputInfo;
begin
  vLastInputInfo.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(vLastInputInfo);
  Caption := Format('用户已经%d秒没有动键盘鼠标了',
    [(GetTickCount - vLastInputInfo.dwTime) div 1000]);
end;

检测鼠标键盘多久没有活动
坦然
08-21 2216
DELPHI代码 function GetInputAwayTime():DWORD; var lpi:TLastInputInfo; begin lpi.cbSize := sizeof(lpi); GetLastInputInfo(lpi); Result := Round((GetTickCount()-lpi.dwTime)/1000); end; pro
delphi简单判断程序30秒没有键盘和鼠标动作示例
09-05
本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数，表示30秒的间隔，具体实现如下，感兴趣的朋友可以参考下哈
delphi 做的 判断 鼠标键盘 无动作delphi
03-03
delphi 写的 判断 鼠标键盘无动作 的代码
delphi 判断键盘多久没有使用
06-24
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 检测用户超过多长时间没有操作键盘或鼠标
chenjianzu的专栏
05-15 1546
procedure TForm1.Timer1Timer(Sender: TObject);   var  vLastInputInfo: TLastInputInfo; begin    vLastInputInfo.cbSize := SizeOf(vLastInputInfo);    GetLastInputInfo(vLastInputInfo);    if GetTi
Delphi编程指南：检测无操作时间与无边框窗体问题
资源摘要信息:"在DELPHI程序设计中，了解和实现如何检测操作系统在一段时间内没有用户操作是一个常见的需求。此文档将详细介绍如何在DELPHI中实现一个功能，该功能可以判断出操作系统在一段时间内没有接收到任何用户...
利用Delphi监控键盘鼠标空闲实现自动关机
通过Delphi的文件操作单元，程序可以在运行时读取这些配置，这样用户就可以根据需要设置在多长时间后无活动时自动关机。 此外，程序会包括若干单元文件，比如Unit1.dcu、Unit1.ddp和Unit1.dfm文件。这些单元文件...
Delphi实现10秒键盘鼠标锁定后自动解锁功能
标题中提到的“Delphi 锁定鼠标和键盘 10秒后解锁”指的是一段Delphi代码，用于在Windows操作系统中暂时禁用用户的鼠标和键盘输入，并在10秒之后自动恢复这些输入设备的功能。 ### 知识点详细说明： #### Delphi...
Delphi中判断当前程序运行过程中长时间无鼠标与键盘操作
11-27 1381
<br />unit Unit1; <br />interface <br />uses <br />   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, <br />   Dialogs, ExtCtrls, StdCtrls; <br />type <br />   TForm1 = class(TForm) <br />     Label1: TLabel; <br />     Timer1: T
delphi，c++获取windows空闲时间
全粘工程师
07-21 598
获取windows计算机空闲时间， 这样就不需要去hook鼠标和键盘，比较方便 delphi function GetLastInput: integer; //获取闲置时间 var linput: TLastInputInfo; begin Result := 0; try linput.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(linput); Result := ((GetTickCount -..
Delphi获得计算机系统配置,DELPHI获取电脑系统空闲时间
weixin_29813635的博客
07-08 390
用Delphi获取电脑系统空闲时间主要代码：functionGetLastInput:integer;//获取闲置时间varLInput:TLastInputInfo;beginResult:=0;tryLInput.cbSize:=SizeOf(TLastInputInfo);GetLastInputInfo(LInput);Result:=((GetTickCount-...
Delphi 长时间不操作提示
YW_Mirage的博客
10-26 409
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
GetLastInputInfo失败
XiaoZuoay的专栏
08-25 2593
void CmainDlg::OnTimer(UINT_PTR nIDEvent) { // TODO: 在此添加消息处理程序代码和/或调用默认值 if(nIDEvent == WM_TIME_MOUSE) { CString showInfo; LASTINPUTINFO lpi; lpi.cbSize = sizeof(lpi); BOOL bVal = Get
GetLastInputInfo 判断离开状态
十年磨一剑，霜刃未曾试!
09-27 6102
GetLastInputInfo  //得到键盘鼠标的输入信息，用开机到现在的时间，减去最后输入的时间，就能得到离开状态的时间。 typedef struct tagLASTINPUTINFO { UINT cbSize; DWORD dwTime; } LASTINPUTINFO, *PLASTINPUTINFO; typedef BOOL (*MyGetLastInputInfo)(PL
【摘自网上】Delphi hook
liuyunhuanying的专栏
01-17 792
<br /><br />//监控窗体在一定的时间内有没有鼠标和键盘事件。<br />procedure TForm1.Timer1Timer(Sender: TObject);<br />var<br />  vLastInputInfo: TLastInputInfo;<br />begin<br />  vLastInputInfo.cbSize := SizeOf(vLastInputInfo);<br />  GetLastInputInfo(vLastInputInfo);<br />  if G
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

martian6125

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值