Cómo determinar si la computadora se ve obligada a apagarse en Delphi

Procedimiento TForm1.Timer1Timer(Sender: TObject); var t：TLastInputInfo; iTime: integer; start t.cbSize：=SizeOf(TLastInputInfo); // hora de la última operación GetLastInputInfo(t); /milisegundos transcurridos desde que se inició la computadora if itimegt;=10*1000 then //10 segundos Cerrar;//cerrar el programa final

------ soluciones ------- -- -----------

Esta es la mejor manera.

Propietario, al tomar una captura de pantalla, capture solo la parte modificada...

Este es el mejor método.

------Solución--------------------

Compara las imágenes antes de enviar diferentes piezas

------Solución--------------------

Procedimiento TForm1.Timer1Timer(Remitente: TObject )

var t: TLastInputInfo

iTime: integer

egi

t.cbSize:=SizeOf(TLastInputInfo); //Finalmente tiempo de operación

GetLastInputInfo(t)

iTime:=GetTickCount-t.dwTime; //El número de milisegundos que ha experimentado la computadora desde que se inició

if itimegt; 10*1000 luego //10 segundos

Cerrar; //Cerrar el programa

fin

¡Este es el mismo método que uso y funciona!