Hallo!!
Geht das nicht auch ohne Countdown? Meine Idee wäre folgende:
2 Variablen vom Typ TDateTime (StartZeit, Endzeit);
Ein Timer mit Intervall z.B. 500 oder 1000
Beim Ereignis OnTimer aktualisiert Du z.B. ein Label mit der aktuellen Uhrzeit (StrToDateTime(now)). Dnn vergleichst Du Endzeit und aktuelle Uhrzeit. Falls aktuelle Uhrzeit >= Endzeit dann wecken auslösen und Timer disablen.
Delphi-Quellcode:
VAR StartZeit, Endzeit : TDateTime;
[...]
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Label_Ende.Caption := DateTimeToStr(now);
IF now >= Endzeit Then Begin;
Timer1.Enabled := false;
// Hier Popup oder WAV abspielen...
End;
end;
[...]
Viel Spass noch,
SCRaT