wait prozedur bewirkt vollständige cpu auslastung

[JonnyGuitar]

so, mit dem letzten code klappt alles hervorragend,

jedoch sind noch 3 veränderungen zu machen:

Delphi-Quellcode:

procedure Delay(Milliseconds: Integer);
var
  Tick: DWORD;
begin
  Tick := GetTickCount + DWORD(Milliseconds);
  while Milliseconds > 0 do
  begin
    case WaitForMultipleObjects(2, @hndlArr, False, Milliseconds) of
      WAIT_OBJECT_0 +0 :
        begin
          // Event Nummer 1 signalisiert
        end;
      WAIT_OBJECT_0 +1 :
        begin
          // Event Nummer 2 signalisiert
        end;
      WAIT_TIMEOUT:
        begin
          // nothing todo
          Exit;
        end;
    else
      begin
        // Fehler !!
      end;
    end;
    Milliseconds := Tick - GetTickCount;
  end;
end;

so liet die prozessorauslastung bei 0% und ich bin glücklich.

vielen dank an alle

mfg Jonny