ob das sinnvoll läuft wage ich ncoh zu bezweifeln, weil deine Schleife ja nach 1000 Durchläufen beendet wird und danach nicht mehr ausgeführt wird. Ob innerhalb der 1000 Durchläufe überhaupt das 60 Sekunden Intervall erreicht wurde glaube ich eher gar nicht, weil du darin nur
die variable jetzt neu setzt, das dauert ziemlich sicher weniger als eine tausendstel minute
wie wäre so ein Konstruktion:
Delphi-Quellcode:
var letzte_minute,hh,mm,ss,zz:word;
begin
decodetime(now, hh,mm,ss,zz);
letzte_minute:=mm;
while true do
begin
decodetime(now, hh,mm,ss,zz);
if letzte_minute<>mm
then
begin
letzte_minute:=mm;
//dein Befehl
end;
Application.ProcessMessages;
sleep(1000);
end
end;