Alternative zu SLEEP

[negaH]

@shima:

das ist eine sehr gute Idee, aber wenn dann so

Delphi-Quellcode:

  while not Application.Terminated and
        (Milliseconds > 0) and 
        (MsgWaitForMultipleObjects(1, Event, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do 
  begin 
    Application.ProcessMessages; 
    Milliseconds := Tick - GetTickcount; 
  end;

Allerdings entspricht das nun nicht mehr EXAKT dem Verhalten was der Name der Funktion suggeriert.

Gruß Hagen