Delay von 12 Stunden?

[Rapthor]

Hallo,
womit kann ich ein Programm anweisen eine Pause von 12 Stunden einzulegen, bevor es den nächsten Befehl ausführt?
Nach diesen 12 Stunden will ich nämlich immer einen Check durchlaufen lassen.
Rapthor

[Robert]

Delphi-Quellcode:

...
var lTick:LONGINT;
begin
...
lTick:=GetTickCount;
repeat
  Application.ProcessMessages;
until (GetTickCount-lTick>=12*3600*1000);
...

Zur Erklärung: GetTickCount-lTick liefert eine Differenz in Millisekunden der vergangenen Zeit, seitdem lTick auf GetTickCount zugewiesen wurde. Nun läuft die Schleife einfach solange, bis 12 Stunden * 3600 Sekunden je Stunde * 1000 Millisekunden je Sekunde abgelaufen ist - deswegen das Produkt.

ProcessMessages sorgt dafür, dass das Programm derweil alle Fensternachrichten problemlos weiterreicht und verarbeitet.

[Daniel B]

Hallo,

hmm, da gibt es mehrere möglichkeiten.
1. Du schreibst Deine exe und lässt die in Windows\Geplante Tasks alle 12 Std. ausführen.
2. Du schnappst Dir die Delay-Funktion von Luckie, ist in der Library.
3. Ein Timer der 12 Std. lang läuft. //43200 Sekunden * 1000 dann in ms.

Grüsse, Daniel :hi:

[Luckie]

Also ich würde das über den Taskmanager regeln. Warum soll ein Programm 12 Stunden im Speicher sein, nur um mal für eine Minute was zu machen. :roll: