Delphi 2007：GlobalMemoryStatus 获取总 RAM答案

【问题标题】：Delphi 2007: GlobalMemoryStatus to get total RAMDelphi 2007：GlobalMemoryStatus 获取总 RAM
【发布时间】：2013-11-15 18:01:41
【问题描述】：

我需要使用 Delphi 2007 获取系统的总物理内存。在 4GB 或更大的系统上使用 GlobalMemoryStatus 似乎会给我错误。在 Delphi 2007 GlobalMemoryStatusEx 中不存在，所以我手动将函数调用添加到我的程序中。它在我的 Windows 7 x64 上正确返回内存（8GB），但在 Vista x32 系统上它仍然返回不正确的值（在这个系统上应该是 4GB，但返回 2.9GB）。知道我可能做错了什么吗？ GlobalMemoryStatusEx 能否在旧操作系统上运行？

type
  DWORDLONG = UInt64;

  PMemoryStatusEx = ^TMemoryStatusEx;
  TMemoryStatusEx = packed record
    dwLength: DWORD;
    dwMemoryLoad: DWORD;
    ullTotalPhys: DWORDLONG;
    ullAvailPhys: DWORDLONG;
    ullTotalPageFile: DWORDLONG;
    ullAvailPageFile: DWORDLONG;
    ullTotalVirtual: DWORDLONG;
    ullAvailVirtual: DWORDLONG;
    ullAvailExtendedVirtual: DWORDLONG;
  end;

function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx): BOOL; stdcall; external kernel32;

function getmemorysize:word;
var
  memory: TMemoryStatusEx;
begin
  FillChar(memory, SizeOf(memory), 0);
  memory.dwLength := SizeOf(memory);
  GlobalMemoryStatusEx(memory);
  result:=memory.ullTotalPhys div (1024*1024);
end;

【问题讨论】：

blogs.msdn.com/b/hiltonl/archive/2007/04/13/…
@SertacAkyuz 这回答了我的 Vista 问题，但是您知道上面的代码是否可以在 Windows XP 等旧操作系统上运行吗？我只是有点担心，因为我必须手动添加 GlobalMemoryStatusEx 的原型。谢谢。
Ace - 由于 IDE 的 Win9x 支持，该声明可能丢失，不用担心。 @Ken - 完成，谢谢。

标签： delphi delphi-2007

【解决方案1】：

这是意料之中的，你没有做错任何事。 Windows 不会在 32 位操作系统上报告 4GB 内存。这是来自 MSDN blog article 题为“3GB-not-4GB RAM 问题”的引述：

由于很久以前做出的架构决定，如果您有 4GB 的安装了物理 RAM，Windows 只能报告一部分物理 4GB RAM（范围从 ~2.75GB 到 3.5GB，具体取决于安装的设备、主板的芯片组和 BIOS）。

GlobaMemoryStatusEx 应该在 Windows 2000 及更高版本上工作（后来的 MSDN 文档不包括 Win2K，但早期的文档有它）。

【讨论】：