Beispiel für ein einfaches Delphi-Beurteilungsprogramm in 30 Sekunden ohne Tastatur- und Mausbewegungen

Das Folgende ist der Originalcode:

(Der Timer ist hier auf 1000 ms eingestellt) Parameter, der ein Intervall von 30 Sekunden angibt! !

Kopieren Sie den Codecode wie folgt:

Einheit Einheit1;

Schnittstelle

verwendet

Windows, Nachrichten, SysUtils, Varianten, Klassen, Grafiken, Steuerelemente, Formulare,

Dialoge, StdCtrls, ExtCtrls;

Typ

TForm1 = Klasse(TForm)

Memo1: TMemo;

Button1: TButton;

Timer1: TTimer;

procedure Timer1Timer(Sender: TObject);

procedure Button1Click(Sender: TObject);

Privat

{Private Erklärungen}

öffentlich

procedure AppMessageHandler(var Msg:TMsg;var Handled:Boolean);

{Öffentliche Erklärungen}

Ende;

var

Form1: TForm1;

Durchführung

{$R *.dfm}

{TForm1}

procedure TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);

beginnen

if (msg.message=WM_MOUSEMOVE) oder (msg.message=WM_KEYDOWN) then timer1.tag:=0;

Ende;

Prozedur TForm1.Timer1Timer(Sender: TObject);

beginnen

timer1.tag:=timer1.tag+1;

wenn Timer1.tag=30 dann schließen;

Ende;

procedure TForm1.Button1Click(Sender: TObject);

beginnen

schließen;

Ende;

Ende.