Totale/ Verfügbaren Ram Größe ermitteln... (gelöst)

[Corpsman]

Hossa Leutz,

ich habe hier die Funktionen

Delphi-Quellcode:

Function GetTotalRAM: Dword; // Liefert den Totalen RAM in Byte 
Var
  Memory: TMemoryStatus;
Begin
  Memory.dwLength := SizeOf(Memory);
  GlobalMemoryStatus(Memory);
  Result := Memory.dwTotalPhys;
End;

function GetFreeRAM : Dword; // Liefert den freien RAM in Byte
var
 Memory: TMemoryStatus;
begin
 Memory.dwLength := SizeOf(Memory);
  GlobalMemoryStatus(Memory);
  Result := Memory.dwAvailPhys;
end;

Und die Funktionieren auch wunderbar, das Problem ist nud das das alles nicht mehr geht wenn man 3 GB Ram hat

Hat mir da jemand ne Idee wie ich das lösen kann ?