Ejemplo de programa de juicio simple de Delphi de 30 segundos sin movimiento de teclado ni mouse

El siguiente es el código original:

(Aquí el temporizador está configurado en 1000 ms), que indica un intervalo de 30 segundos. !

Copie el código de código de la siguiente manera:

unidad Unidad1;

interfaz

usos

Windows, Mensajes, SysUtils, Variantes, Clases, Gráficos, Controles, Formularios,

Diálogos, StdCtrls, ExtCtrls;

tipo

TForm1 = clase(TForm)

Memo1: TMemo;

Botón1: TBotón;

Temporizador1: Temporizador T;

procedimiento Timer1Timer(Remitente: TObject);

procedimiento Button1Click(Remitente: TObject);

privado

{Declaraciones privadas}

público

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

{Declaraciones públicas}

fin;

var

Formulario1: TForm1;

implementación

{$R *.dfm}

{TForm1}

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

comenzar

si (msg.message=WM_MOUSEMOVE) o (msg.message=WM_KEYDOWN) entonces timer1.tag:=0;

fin;

procedimiento TForm1.Timer1Timer(Remitente: TObject);

comenzar

temporizador1.etiqueta:=temporizador1.etiqueta+1;

si Timer1.tag=30 entonces cierre;

fin;

procedimiento TForm1.Button1Click (Remitente: TObject);

comenzar

cerca;

fin;

fin.