Ramauslastung (bei ramgrößen >2gb)

[himitsu]

aber dafür brauchst du dieses Fläg doch nicht

Delphi-Quellcode:

var 
  memory: TMemoryStatus; 
begin 
  memory.dwLength := SizeOf(memory); 
  GlobalMemoryStatus(memory); 
  memtotal := Cardinal(memory.dwTotalPhys) / 1024 / 1024; 
  memavail := Cardinal(memory.dwAvailPhys) / 1024 / 1024; 
  memused := Cardinal(memory.dwMemoryLoad) / 1024 / 1024;