Delphi中判断当前程序运行过程中长时间无鼠标与键盘操作.docxVIP

Delphi Delphi 中判断当前程序运行过程中长时间无鼠标与键盘操 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } procedure Detect(var Msg:TMsg; var Handled:boolean); public { Public declarations } // // 注释 :定义一变量， 用来记录鼠标或键盘无操作记录 的时间 // flag : integer; end; var Form1: TForm1; implementation {$R *.dfm} 过程名 :TForm1.Timer1Timer功能描述 过程名 : TForm1.Timer1Timer 功能描述 : 在T imer事件里记录无操作时间，并作相 应的处理。 参数 : 参数 : Sender: TObject 返回值 : --} procedure TForm1.Timer1Timer(Sender: TObject); begin Inc(flag); Label1.Caption := IntToStr(flag); // 在此加上判断条件 . 这儿设置的是 120 秒 if flaggt;120 then close; 过程名 : 过程名 : TForm1.Detect end; { 过程名 : TForm1.FormShow 功能描述 : 将系统消息设置为自定义消息。 参数 : Sender: TObject 返回值 : 无 --} procedure TForm1.FormShow(Sender: TObject); begin Application.OnMessage:=Detect; end; { 功能描述 : 消息里处理的事件。 如果有鼠标或键盘操作， 参数:则将时间标志置为 参数: var Msg: TMsg; var Handled: boolean 返回值 : --} procedure TForm1.Detect(var Msg: TMsg; var Handled: boolean); begin orthenif (Msg.message=WM_KEYDOWN) or then (Msg.message=WM_MOUSEMOVE) flag :=0;