4

我需要使用 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;
4

1 回答 1

3

这是可以预料的，你没有做错任何事。Windows 不会在 32 位操作系统上报告 4GB 内存。以下是 MSDN博客文章“3GB-not-4GB RAM 问题”的引述：

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

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

于 2013-11-05T15:39:25.273 回答