RAM auslesen - Fehler??

[Madara Uchiha]

Hallo,

Ich lese hiermit mein RAM aus:

Delphi-Quellcode:

function GetTotalPhysMemory: string;
  var
    MemoryInfo: TMemoryStatus;
    Buf: Array [0 .. 255] Of Char;
  begin
    MemoryInfo.dwLength := SizeOf(MemoryInfo);
    GlobalMemoryStatus(MemoryInfo);
    StrFormatByteSizeW(MemoryInfo.dwTotalPhys, Buf, Length(Buf));
    Result := StrPas(Buf);
  end;

Allerdings zeigt es mir 3,99GB und ich hab 6GB? :?

[Bernhard Geyer]

Wenn du das als 32-Bit App kompilierst wirst du nicht mehr bekommen.

[hathor]

Delphi-Quellcode:

function gettotalphysmemory: Int64;
var
  memoryEx: TMemoryStatusEx;
begin
  begin
    memoryEx.dwLength := sizeof(TMemoryStatusEx);
    GlobalMemoryStatusEx(memoryEx);
    gettotalphysmemory := memoryEx.ullTotalPhys;
  end;
end;

[Madara Uchiha]

Zitat:

Zitat von hathor (Beitrag 1213619)

Delphi-Quellcode:

function gettotalphysmemory: Int64;
var
  memoryEx: TMemoryStatusEx;
begin
  begin
    memoryEx.dwLength := sizeof(TMemoryStatusEx);
    GlobalMemoryStatusEx(memoryEx);
    gettotalphysmemory := memoryEx.ullTotalPhys;
  end;
end;

Dankeschön.