Freien Speicher

[HW764]

das heisst:

-Einen Timer


und dann den Code im Timer ausführen:

Delphi-Quellcode:

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));
  gauge1.Progress := Auslastung;
end;