Zu einer bestimmten Uhrzeit Aktion ausführen!

[Trouble_Maker]

Hiho Leute
ich möchte ein Programm programmieren, mit dem ich, nach einer vorher eingegebenen Uhrzeit eine Aktion (in meinem Fall die DFÜ-Verbindun getrennt) ausgeführt wird!
Jetzt würde ich gern wissen, wie ich das verwirklichen soll !?!
also danke im Vorraus

bis dann

Trouble_Maker

[CalganX]

Hi,
ich würde vorschlagen, dass du einen Timer nimmst und diesen auf 1sek. einstellst und im OnTimer-Ereignis abfragst, ob die Uhrzeit die derzeit ist.

Chris

[Trouble_Maker]

Und wie mach ich das mit dem On-Timer-Ereignis ?!?
Sorry aber ich bin Noob!

Danke


Trouble_Maker

[CalganX]

Hi. Beispiel:

Delphi-Quellcode:

// Im Create-Event des Forms:
  Timer1.Enabled := true;

// Doppelklick auf den Timer und ins Event schreiben:
  if Now >= eineZeitMarke then begin
    // tu' was!
  end;

Chris

[Chriss]

Zitat von Chakotay1308:

Hi. Beispiel:

Delphi-Quellcode:

// Im Create-Event des Forms:
  Timer1.Enabled := true;

// Doppelklick auf den Timer und ins Event schreiben:
  if Now >= eineZeitMarke then begin
    // tu' was!
  end;

Chris

Hi!

Mal angenommen, ich will das ganze um genau 9.01 starten lassen....
wie schreib ich das da hin?
bei:

Code:

if Now >= 09.01 then begin
....

führt er den Befehl sofort aus
bei:

Code:

if Now >= 09:01 then begin
....

kommt ein Fehler

[Luckie]

Welcher Fehler? Ungültige Uhrzeit? Zu einer Uhrzeit gehören auch noch die Sekunden.

So geht's:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if now > StrToTime('08:52:00') then
    Showmessage('');
end;

[Chriss]

WIE muss ich das dann schreiben?

09:01:00
oder
09.01.00 (dann beginnt er sofort mit dem, was er machen soll)

[Luckie]

*push*

[Chriss]

Wenn ich das ganze SO mache:

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if now > StrToTime('09:15:00') then begin
    Showmessage('es ist jetzt 9:11 Uhr');
    end;
timer1.enabled:=false;
end;

zeigt er mir sofort die message

und es war erst 8:58

Die Uhr in der Taskleiste zeigt diese Zeit an!

[Luckie]

Mist, war ich zu schnell?