获取系统输入闲置时间

最新推荐文章于 2024-04-16 08:20:43 发布

liangpei2008

最新推荐文章于 2024-04-16 08:20:43 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： Windows SDK/API 文章标签： timer delphi forms function windows class

本文链接：https://blog.youkuaiyun.com/liangpei2008/article/details/4123211

Windows SDK/API 专栏收录该内容

21 篇文章

订阅专栏

delphi编写指定时间不动鼠标将系统锁定/以及在不动的情况下隐藏鼠标
3秒种不动鼠标键盘看看效果。
GetLastInputInfo：获取闲置时间;
ShowCursor：设置鼠标状态;

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; function BlockInput(fFreezeInput : boolean):DWord; stdcall; external 'user32.DLL'; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var vLastInputInfo: TLastInputInfo; begin vLastInputInfo.cbSize := SizeOf(vLastInputInfo); GetLastInputInfo(vLastInputInfo); if GetTickCount - vLastInputInfo.dwTime > 3000 then begin ShowCursor(False)//隐藏鼠标 timer1.Enabled:= false; BlockInput(True); showmessage('超过3秒，已锁定！'); end; end; end.