Sleep ohne Win32 API

[turboPASCAL]

http://www.delphipraxis.net/internal...?p=52152#52152

eine Procedure von Hagen:

Delphi-Quellcode:

procedure Delay(MSecs: Integer);
var
  Tick: DWord;
  Event: THandle;
begin
  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWord(MSecs);
    while (MSecs > 0) and
     (MsgWaitForMultipleObjects(1, Event, False, MSecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      MSecs := Tick - GetTickcount;
    end;
  finally
    CloseHandle(Event);
  end;
end;

CPU-Auslastung < 1 % (nicht auf einem 386 getestet )