Einzelnen Beitrag anzeigen

hathor
(Gast)

n/a Beiträge
 
#3

AW: GetTickCount beeinflusst von PC Auslastung

  Alt 4. Jun 2015, 20:08
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;

Geändert von hathor ( 4. Jun 2015 um 23:24 Uhr)
  Mit Zitat antworten Zitat