Program penghakiman sederhana Delphi 30 detik tanpa contoh gerakan keyboard dan mouse

Berikut kode aslinya:

(Pengatur waktu disetel ke 1000 ms di sini), menunjukkan interval 30 detik! !

Copy kode kodenya sebagai berikut:

satuan Unit1;

antarmuka

kegunaan

Windows, Pesan, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir,

Dialog, StdCtrls, ExtCtrls;

jenis

TForm1 = kelas(TForm)

Memo1: TMemo;

Tombol1: Tombol T;

Pengatur Waktu1: Pengatur Waktu;

procedure Timer1Timer(Pengirim: TObject);

prosedur Button1Click(Pengirim: TObject);

pribadi

{Deklarasi pribadi}

publik

procedure AppMessageHandler(var Pesan:TMsg;var Ditangani:Boolean);

{Pernyataan publik}

akhir;

var

Formulir1: TForm1;

pelaksanaan

{$R *.dfm}

{TForm1}

prosedur TForm1.AppMessageHandler(var Pesan: TMsg; var Ditangani: Boolean);

mulai

jika (msg.message=WM_MOUSEMOVE) atau (msg.message=WM_KEYDOWN) maka timer1.tag:=0;

akhir;

prosedur TForm1.Timer1Timer(Pengirim: TObject);

mulai

pengatur waktu1.tag:=pengatur waktu1.tag+1;

jika Timer1.tag=30 lalu tutup;

akhir;

prosedur TForm1.Button1Click(Pengirim: TObject);

mulai

menutup;

akhir;

akhir.