Wie kann ich die CPU auslastung in einer ProgressBar anzeige

[Matze]

Hi

Bei mir geht es so ohne Probleme:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position := GetCPUUsage;
end;

Es muss natürlich nicht in einer Timer-Prozedur sein. ProgressBar-Min muss auf 0 stehen und -Max auf 100, was jedoch Standard-EInstellung ist. Runden musst du nichts, da GetCPIUsage einen Integer zurückliefert.