CPU-Auslastung minimieren

[Carsten1234]

Hallo,

lt. Taskmanager hat mein Programm, wenn es einfach nur gestartet wird und noch "nix" macht, eine CPU-Auslastung von 50% (diese geht auf 0, wenn das Programm minimiert wird).
Frage: Kann man die CPU-Auslastung noch irgendwie "händisch" herunter setzen?
Im Quellcode selbst habe ich schon stehen:

Delphi-Quellcode:

procedure TTMSMainForm.FormCreate(Sender: TObject);
var MainThread: THandle;
begin
  MainThread := GetCurrentThread;
  SetThreadPriority(MainThread, THREAD_PRIORITY_LOWEST);
  Application.OnIdle:= AppUpdate;
end;

procedure TMainForm.AppUpdate(Sender: TObject; var Done: Boolean);
begin
  inherited;
  Application.ProcessMessages;
(...)
end;

Bringt aber auch nichts...

Dank vorab und Gruß, Carsten