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

最新推荐文章于 2021-07-21 15:43:11 发布
最新推荐文章于 2021-07-21 15:43:11 发布
阅读量1.8k 收藏
点赞数
文章标签： delphi timer div
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/belllab/article/details/1554086
版权
本文介绍了一个简单的程序，用于监测用户在计算机前的活动状态。通过获取最后一次输入的时间，并与当前时间进行对比，程序能够判断用户是否长时间未进行键盘或鼠标的操作。此功能对于实现自动休眠、节能管理等具有一定的实用价值。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

procedure TForm1.Timer1Timer(Sender: TObject);
var
  vLastInputInfo: TLastInputInfo;
begin
  vLastInputInfo.cbSize : =  SizeOf(TLastInputInfo);
  GetLastInputInfo(vLastInputInfo);
  Caption : =  Format( ' 用户已经%d秒没有动键盘鼠标了 ' ,
    [(GetTickCount  -  vLastInputInfo.dwTime) div  1000 ]);
end;
 
belllab
关注
检测鼠标键盘多久没有活动
坦然
08-21 2174
DELPHI代码 function GetInputAwayTime():DWORD; var lpi:TLastInputInfo; begin lpi.cbSize := sizeof(lpi); GetLastInputInfo(lpi); Result := Round((GetTickCount()-lpi.dwTime)/1000); end; pro
DELPHI中鼠标的各种操作
PengYuZhu的专栏
07-31 8480
{鼠标：右击，左击，单击，双击，滚轮，拖曳}Delphi程序设计中的鼠标控制2008-06-28 20:15在Windows环境下，鼠标和键盘是主要的输入设备。在Delphi中几乎每个对象都具有反映鼠标控制的事件，这些事件的主要功能包括改变鼠标指针的形状，移动、触发、拖动鼠标等。鼠标控制的三个相关属性是Cursor、DragCursor、DragMode；鼠标(拖拽
delphi简单判断程序30秒没有键盘和鼠标动作示例
09-05
本文为大家详细介绍下delphi判断程序30秒没有键盘和鼠标动作,这里给timer设置了1000ms)的参数，表示30秒的间隔，具体实现如下，感兴趣的朋友可以参考下哈
Delphi 检测用户超过多长时间没有操作键盘或鼠标
chenjianzu的专栏
05-15 1515
procedure TForm1.Timer1Timer(Sender: TObject);   var  vLastInputInfo: TLastInputInfo; begin    vLastInputInfo.cbSize := SizeOf(vLastInputInfo);    GetLastInputInfo(vLastInputInfo);    if GetTi
Delphi中判断当前程序运行过程中长时间无鼠标与键盘操作
11-27 1344
<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 做的 判断 鼠标键盘 无动作delphi
03-03
delphi 写的 判断 鼠标键盘无动作 的代码
Delphi编程指南：检测无操作时间与无边框窗体问题
资源摘要信息:"在DELPHI程序设计中，了解和实现如何检测操作系统在一段时间内没有用户操作是一个常见的需求。此文档将详细介绍如何在DELPHI中实现一个功能，该功能可以判断出操作系统在一段时间内没有接收到任何用户...
delphi 判断键盘多久没有使用
06-24
在Delphi 开发环境中，有时我们需要实现一些与用户交互相关的功能，比如当用户一段时间内未进行任何操作时执行特定的任务或显示提示信息。这种需求可以通过监控用户的输入活动（如键盘或鼠标操作）来实现。本文将...
Delphi实现10秒键盘鼠标锁定后自动解锁功能
标题中提到的“Delphi 锁定鼠标和键盘 10秒后解锁”指的是一段Delphi代码，用于在Windows操作系统中暂时禁用用户的鼠标和键盘输入，并在10秒之后自动恢复这些输入设备的功能。 ### 知识点详细说明： #### Delphi...
delphi，c++获取windows空闲时间
全粘工程师
07-21 520
获取windows计算机空闲时间， 这样就不需要去hook鼠标和键盘，比较方便 delphi function GetLastInput: integer; //获取闲置时间 var linput: TLastInputInfo; begin Result := 0; try linput.cbSize := SizeOf(TLastInputInfo); GetLastInputInfo(linput); Result := ((GetTickCount -..
获取键盘鼠标空闲时间实现智能关机
01-05
使用delphi获取键盘鼠标空闲时间实现智能关机程序源代码
GetLastInputInfo失败
XiaoZuoay的专栏
08-25 2524
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 6053
GetLastInputInfo  //得到键盘鼠标的输入信息，用开机到现在的时间，减去最后输入的时间，就能得到离开状态的时间。 typedef struct tagLASTINPUTINFO { UINT cbSize; DWORD dwTime; } LASTINPUTINFO, *PLASTINPUTINFO; typedef BOOL (*MyGetLastInputInfo)(PL
【摘自网上】Delphi hook
liuyunhuanying的专栏
01-17 733
<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
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值