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