wait prozedur bewirkt vollständige cpu auslastung

[JonnyGuitar]

habe ich gerade versucht, dass geht *g*. aber leider bringt der code:

Delphi-Quellcode:

procedure Delay(Milliseconds: Integer);
{by Hagen Redmann}
var
  Tick: DWORD;
//  Event: THandle;
begin
//  Event := CreateEvent(nil, False, False, nil);
  try
    Tick := GetTickCount + DWORD(Milliseconds);
    while (Milliseconds > 0) and
      (MsgWaitForMultipleObjects(2, hndlArr, False, Milliseconds, QS_ALLINPUT) <> WAIT_TIMEOUT) do
    begin
      Application.ProcessMessages;
      Milliseconds := Tick - GetTickCount;
    end;
  finally
//    CloseHandle(Event);
  end;
end;

auch wieder volle cpu auslastung


mfg Jonny