delphi 获取大于2G的物理内存大小

来源：互联网发布：商品查询软件编辑：程序博客网时间：2024/05/16 06:25

一般情况下，我们是用GlobalMemoryStatus 来获取物理内存大小的但该API在物理内存大小超过2G的时候，返回值均为2GB。因此，没有办法获取真实的物理内存大小，所以需要对此进行改进。

定义TMemoryStatusEx结构：

Type  TMemoryStatusEx = packed record    dwLength: DWORD;    dwMemoryLoad: DWORD;    ullTotalPhys: Int64;    ullAvailPhys: Int64;    ullTotalPageFile: Int64;    ullAvailPageFile: Int64;    ullTotalVirtual: Int64;    ullAvailVirtual: Int64;    ullAvailExtendedVirtual: Int64;  end;Function GlobalMemoryStatusEx(var lpBuffer: TMemoryStatusEx): BOOL; stdcall; external kernel32; MemoryStatusEx.dwLength := SizeOf(MemoryStatusEx); GlobalMemoryStatusEx(MemoryStatusEx);Memo2.Lines.Add(FormatFloat('#,###', ullTotalPhys) );   //如果真实内存超过4G  会显示真实内存 上限为3.5G。 当然 如果机器为64位会真实显示。

说明：以上环境针对32位操作系统如果您的操作系统是64位不会有以上问题