GetTickCount beeinflusst von PC Auslastung

[hathor]

Wenn Du die CPU-Last wissen willst, dann zeige sie an:
Timer1.Interval:= 1000; // kürzer muss es nicht sein!

Delphi-Quellcode:

private
   Times: TThread.TSystemTimes;

procedure TForm1.FormCreate(Sender: TObject);
begin
TThread.GetSystemTimes(Times);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var Usage: Integer;
begin
  Usage := TThread.GetCPUUsage(Times);
  ProgressBar.Position := Usage; // Percent 0 - 100
end;