Fehler beim Auslesen des Arbeitsspeichers größer 2GB

[RWarnecke]

Hallo zusammen,

ich lese mit der folgenden Function die Größe des physikalischen Arbeitsspeicher aus :

Delphi-Quellcode:

Function TotalPhysicalRAM : Int64;
var memStat : TMemoryStatus;
Begin
  memStat.dwLength:= SizeOf(TMemoryStatus);
  GlobalMemoryStatus( memStat );
  Result:= memStat.dwTotalPhys;
End;

Nur habe ich damit ein Problem, warum kann liest diese Funktion nicht den richtigen Arbeitsspeicher aus, wenn mein physikalischer Arbeitsspeicher mehr als 2 GB beträgt ? Wie kann ich das ändern ?

[Olli]

Da gab es IMO ein Flag fuer den Compiler oder den Memory-Manager. Jedenfalls war das eine delphispezifische Einschraenkung in frueheren Versionen.

[RWarnecke]

Danke für Deine rasche Antwort. Nur leider kann ich damit im Moment garnichts anfangen.

[Olli]

Sorry, habe hier auf Arbeit kein Delphi

Aber guck mal hier: http://bdn1.borland.com/article/0,14...AddressSpaceGB

[Luckie]

Hilfe lesen:

Zitat:

On computers with more than 4 GB of memory, the MEMORYSTATUS structure can return incorrect information. Windows reports a value of -1 to indicate an overflow, while Windows NT reports a value that is the real amount of memory, modulo 4 GB. If your application is at risk for this behavior, use the GlobalMemoryStatusEx function instead of the GlobalMemoryStatus function.

[Olli]

Stimmt, er benutzt ja garkeine Pointer.

[Luckie]

Schön auch die Formulierung:

Zitat:

Windows reports a value of -1 to indicate an overflow, while Windows NT

Windows <> Windows NT.