Alternative Sleep

[Clemens L.]

So wie ich das verstanden habe willst du deine eigene Sleep-Funktion programmieren? Ich würds so machen:

Delphi-Quellcode:

procedure MySleep(milliseconds: Integer);
var a,b,c: int64;
begin
  QueryPerformanceFrequency(a);
  QueryPerformanceCounter(b);
  repeat
    Application.ProcessMessages;
    QueryPerformanceCounter(c);
  until milliseconds = (c - b) * 1000 div a;
  end;
end;

Edit: Ich sehe grade, das Programm darf nicht schlafen, ich weiss nicht ob da in "ProcessMessages" reicht!
Edit2: Code etwas verschönert