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.