delphi简单判断程序30秒没有键盘和鼠标动作示例

以下为原代码： 
(这里给timer设置了1000ms)的参数，表示30秒的间[Www.aloNely.Com.Cn]隔！！ 
复制代码 代码如下: 
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.