Question

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

Answer 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，但早期的文件不包括Win2K）。

Delphi 2007：GlobalMemoryStatus获取总RAM

1 个答案: