Hallo!!!
Das ganze ist wirklich ganz einfach zu programmieren und noch zu erweitern (z.B. zu einer bestimmten Uhrzeit herunterfahren...) wenn Du folgendes macht (und bei DEINEM Code oben bleibst):
Hier mal ein Pseudocode (
Unit DateUtils einbinden):
Delphi-Quellcode:
ShutDownDateTime : TDateTime;
[...]
ShutDownDateTime := AddMinutes(StrToInt(EditShutDownAfterXMinutes.Text), Now);
[...]
procedure Timer1OnTimer(Sender : TObject);
Begin
If Now >= ShutDownDateTime Then Begin;
// Hier Windows herunterfahren oder was auch immer...
End;
End;
[...]
... zumindest so ähnlich, mal als Denkanstoß. Habe vor einigen Wochen ein selbiges Programm geschrieben, leider schon wieder gelöscht, sonst könnte ich Dir den Source posten.
SCRaT