RSS订阅 | 匿名投稿
您的位置:网站首页 > 内存 > 正文

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

作者:admin 来源: 日期:2013/4/17 22:48:17 人气: 标签:

一般情况下,我们是用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位 不会有以上问题


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: