delphi 단순 판단 프로그램 30 초 키보드 와 마우스 동작 예제 없 음

다음은 원본 코드 입 니 다.(여기 서 timer 에 1000 ms 를 설정 하 였 습 니 다)인 자 는 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.