Rechenzeit zurückgeben

[gbl]

Danke vorerst Euch beiden.

Ich habe eine Workarrount für mein Problem gefunden. Im Sinne des Befehles SLEEP sage ich dem Programm einfach nichts zu tun. Für meine Zwecke reicht es.

Delphi-Quellcode:

PROCEDURE SERVICE_MAIN;
BEGIN
  REPEAT
    IF NOT paused THEN
    BEGIN
      sleep(10);

      if SecondsBetween(time, time0)>=timedelta then
      begin
        Windows.Beep(2000, 250);
        time0:=time;
      end;
    END;
  UNTIL stopped;
END;