本文整理自网络，侵删。
一般情况下，我们是用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位 不会有以上问题
相关阅读 >>
Delphi webbrowser设置自己定义user-agent
Delphi access数据库密码的mdb的访问报错“无法启动应用程序，或是已被其他用户已独占方式打开”
Delphi 二进制值转换十六进制 bintohex和hextobin
Delphi整理七（function and procedure）
更多相关阅读请进入《Delphi》频道 >>
