Win32 API: Nachrichtenschleife und 100% CPU Auslastung

[Nonsense]

Hallo,

durch folgende Nachrichtenschleife habe ich eine CPU-Auslastung von 100%:

Delphi-Quellcode:

  while not Finished do
    if (PeekMessage(Msg, 0, 0, 0, PM_REMOVE)) then
      if (Msg.Message = WM_QUIT) then
      begin
        Finished := True;

        [ ... (Instanzen freigeben etc.) ]
      end else
      begin
     TranslateMessage(Msg);
        DispatchMessage(Msg);
      end
    else
      ProcessKeys; // Tastatureingaben verarbeiten

PeekMessage könnte ich durch GetMessage ersetzen und das Freigeben von Instanzen kann ich dann in's WM_DESTROY tun. Nur wo schiebe ich dann mein ProcessKeys rein?
Hat jemand eine Alternative für mich?

Thx.

[neolithos]

WaitMessage nach ProcessKey rufen?

[Union]

Zitat von Nonsense:

Hallo,

durch folgende Nachrichtenschleife habe ich eine CPU-Auslastung von 100%:

Delphi-Quellcode:

  while not Finished do
    if (PeekMessage(Msg, 0, 0, 0, PM_REMOVE)) then
      if (Msg.Message = WM_QUIT) then
      begin
        Finished := True;

        [ ... (Instanzen freigeben etc.) ]
      end else
      begin
     TranslateMessage(Msg);
        DispatchMessage(Msg);
      end
    else
      ProcessKeys; // Tastatureingaben verarbeiten

PeekMessage könnte ich durch GetMessage ersetzen und das Freigeben von Instanzen kann ich dann in's WM_DESTROY tun. Nur wo schiebe ich dann mein ProcessKeys rein?
Hat jemand eine Alternative für mich?

Thx.

Was macht denn ProcessKeys ? Normalerweise sollte das ein if Msg.Message = WM_KEY... gefolgt von einem case sein.

[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;