Zu einer bestimmten Uhrzeit Aktion ausführen!

[City Light]

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;