Win32 API: Nachrichtenschleife und 100% CPU Auslastung

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