Win32 API: Nachrichtenschleife und 100% CPU Auslastung

[Nonsense]

Zitat von neolithos:

WaitMessage nach ProcessKey rufen?

Jo, Danke!

Meine ProcessKeys Prozedur ist zum verarbeiten der Tastatur-Eingaben zuständig:

Delphi-Quellcode:

procedure ProcessKeys;
begin
  if Keys[VK_RETURN] then Started := True;
  if Keys[VK_ESCAPE] then Finished := True;

  [ etc. ]
end;

verbunden mit WM_KEYDOWN und WM_KEYUP:

Delphi-Quellcode:

    WM_KEYDOWN:
      begin
        Keys[wParam] := True;
        Result := 0;
      end;
    WM_KEYUP:
      begin
        Keys[wParam] := False;
        Result := 0;
      end;