Hallo zusammen,
so jetzt habe ich das alles soweit ausprobiert und es funktioniert auch. Ich musste zwar noch ein paar Kleinigkeiten berücksichtigen, aber es funktionoiert. Jetzt habe ich allerdings noch zwei kleine Problem, besser gesagt Gedanken, die mich stutzig machen. Hier erst mal meine fertigen Funktionen.
Delphi-Quellcode:
//Setzen des TimerIntervals, wird im Form1.Create aufgerufen.
procedure TForm1.SetTimerIntervalEMail;
var
TimeNow : TDateTime;
TimeNowStr : String;
begin
EMailTimerGruppe1Interval := 3600*24;
TimeNowStr := TimeToStr(Now);
SendEMailTimer1.Interval := Millisecondsbetween(StrToTime(TimeNowStr),StrToTime('00:01:00'));
SendEMailTimer1.Enabled := true;
end;
So jetzt die zwei Probleme...
1. Kann ich nicht
'00:00:00'
als Uhrzeit eingeben.
2. Was wäre, wenn jetzt jemand nach dem Programmstart manuell oder über Zeitsynchronisation die Uhrzeit des PC umstellt. Würde ja für mich bedeuten, das meine Interval nicht mehr stimmt.
MFG
Jens