delphi - 安装 > 4 GB 时获取总内存和可用内存

Question

当 Windows 7 上安装了超过 4 GB 内存的 Delphi 2010 时，是否有办法获取总内存和可用内存？

此代码返回的大小不超过 3.99 GB:

var
  Memory: TMemoryStatus;

Memory.dwLength := SizeOf( Memory );
GlobalMemoryStatus( Memory );
dwTotalPhys1.Caption := 'Total memory: ' + IntToStr( Memory.dwTotalPhys ) + ' Bytes ' + '(' + FormatByteSize
( Memory.dwTotalPhys ) + ')';
dwAvailPhys1.Caption := 'Available memory: ' + IntToStr( Memory.dwAvailPhys ) + ' Bytes ' + FormatByteSize
( Memory.dwAvailPhys ) + ')';

Answer 1

您需要使用GlobalMemoryStatusEx 。 GlobalMemoryStatus 限制为 4GB

我不知道它是否已在 Delphi 中定义为 TMemoryStatusEx 结构(它将基于 Windows API 的 MEMORYSTATUSEX。)

您必须查看的字段是 ullTotalPhys 和 ullAvailPhys。它们是 64 位无符号整数。

我忘记了，它仅受 Windows >= 2000 支持，但这应该不再是问题了。