Auslastung in Progressbar/gauge

[turboPASCAL]

Bitteschön:

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
var
  x, y : real; 
  memory: TMemoryStatus; 
  Auslastung: integer; 
begin 
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatus(memory); 
  x := memory.dwTotalPhys - memory.dwAvailPhys; 
  y := memory.dwTotalPhys; 
  Auslastung := round(((x/y)*100));
  
  // Memmory
  Gauge1.Progress := Auslastung;

  // CPU
  Gauge2.Progress := GetCPUUsage;
end;

Das sollte so funktionieren ...

GetCPUUsage gibt es bei den Schweizern (Direcktlink).

Oder: GetCPUUsage