delphi简单判断程序30秒没有键盘和鼠标动作示例
作者:水悠悠予安
时间:2026-06-29
来源:互联网
浏览:0
一段Delphi代码通过消息钩子监控鼠标移动和键盘按下事件,利用Timer组件的tag属性作为计数器,每秒自增一次,检测到用户操作时重置为零,当tag值达到30时自动执行程序关闭,实现30秒无操作自动退出功能。
在实际的桌面应用开发中,偶尔会碰到这么个需求——希望程序在用户长时间无操作时自动响应。比如自动注销、关闭程序或者锁定屏幕。而实现这类功能的核心,就是检测键盘和鼠标的空闲时间。下面这段Delphi代码,就展示了一种非常简洁直接的实现方式。
关键的Timer参数设为了1000毫秒,这也就意味着,它的触发间隔是1秒。所以,当代码中判断Timer的“tag”值达到30时,对应的就是30秒。
本文内容来源于互联网,如有侵权请联系删除。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
begin
if (msg.message=WM_MOUSEMOVE) or (msg.message=WM_KEYDOWN) then
timer1.tag:=0;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.tag:=timer1.tag+1;
if Timer1.tag=30 then
close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
end.
这段代码的逻辑非常清晰。它通过一个全局的消息钩子来监控应用程序的消息队列。一旦捕获到鼠标移动(`WM_MOUSEMOVE`)或键盘按下(`WM_KEYDOWN`)的消息,就立即将Timer的`tag`属性重置为0。而Timer每隔1秒触发一次,每次触发时都会让`tag`值自增1。当`tag`累积到30时,程序就会执行`Close`方法,从而实现30秒无操作自动退出的效果。这个思路的关键就在于,将Timer本身的`tag`属性当成了一个计步器,巧妙地复用了现有组件资源。当用户有操作时,计步器归零,无操作时则持续累加,直到触发阈值。
作者最新文章
灵活计算器
2026-09-16 17:45
苹果折叠屏iPhone预计售价是多少
2026-09-14 13:44
OpenAI GPT-6 Astra 自主通关《传送门》:技术原理与实验成本解析
2026-09-08 19:08
苹果与铠侠签署NAND长期供应协议:3-5年长约与不设价格上限背后的供应链战略
2026-09-08 16:58
PDF转PPT操作指南:在线、本地与批量转换及结果核对
2026-09-04 15:04
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多
Windows 10
Windows
Windows 10 是一款微软推出的经典操作系统,拥有硬件兼容性与多任务处理能力。它更偏向把系统状态查看和常用调节动作放在一起,适合需要持续观察和微调设备状态的场景。
极度公式
Windows/macOS/Linux
极度公式是一款跨平台专业LaTeX公式识别编辑软件,支持OCR公式识别和多平台编辑。和使用说明,避免使用,享受完整功能与稳定支持。做扫描整理、文字提取和表格转换时,它能把识别后的处理步骤接得更顺,资料录入这类场景会省下不少时间。
















