Программа простой оценки Delphi 30 секунд без примера движения клавиатуры и мыши

Ниже приведен исходный код:

(Здесь таймер установлен на 1000 мс), обозначающий интервал в 30 секунд! !

Скопируйте код кода следующим образом:

блок Unit1;

интерфейс

использует

Windows, сообщения, SysUtils, варианты, классы, графика, элементы управления, формы,

Диалоги, StdCtrls, ExtCtrls;

тип

ТФорм1 = класс (ТФорма)

Памятка1: TMemo;

Кнопка1: Кнопка T;

Таймер1: ТТаймер;

процедура Timer1Timer (Отправитель: TObject);

процедура Button1Click (Отправитель: TObject);

частный

{Частные заявления}

общественный

процедура AppMessageHandler(var Msg:TMsg;var Handled:Boolean);

{Публичные заявления}

конец;

вар

Форма1: ТФорм1;

выполнение

{$R *.dfm}

{TForm1}

процедура TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);

начинать

если (msg.message=WM_MOUSEMOVE) или (msg.message=WM_KEYDOWN), то timer1.tag:=0;

конец;

процедура TForm1.Timer1Timer(Отправитель: TObject);

начинать

timer1.tag:=timer1.tag+1;

если Timer1.tag=30, то закрыть;

конец;

процедура TForm1.Button1Click(Отправитель: TObject);

начинать

закрывать;

конец;

конец.