Hi Leute
Ich weiß jetzt nicht ob es euch hilft ,aber ich habe das mal bei mir rausgekramt...
Delphi-Quellcode:
{
Zeit rückwärts laufen lassen um 1 Stunde und Aktion ausführen
}
var
Zeit : integer = 3600;
//60 x 60 Sekunden
procedure DoSomething;
begin
Windows.Messagebox(0, '
Der Computer wird in 15 Minuten heruntergefahren!','
ACHTUNG',
MB_OK
or MB_ICONINFORMATION);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
dec(Zeit);
case Zeit
of
900 : DoSomething;
//15 Minuten
0 : ExitWindowsEx(EWX_SHUTDOWN,0);
end;
Label1.Caption := Format('
%0.2d:%0.2d:%0.2d',[Zeit
div 3600,Zeit
div 60,Zeit
mod 60]);
end;