delphi – 安装> 4 GB时获取总内存和可用内存

发布时间：2020-12-15 04:21:32 所属栏目：大数据来源：网络整理

导读：在 Windows 7上使用Delphi 2010安装超过4 GB的内存时,有没有办法获得Total和Available内存？此代码的返回值不超过3.99 GB： var Memory: TMemoryStatus;Memory.dwLength := SizeOf( Memory );GlobalMemoryStatus( Memory );dwTotalPhys1.Caption := 'Total

在 Windows 7上使用Delphi 2010安装超过4 GB的内存时,有没有办法获得Total和Available内存？

此代码的返回值不超过3.99 GB：

var
  Memory: TMemoryStatus;

Memory.dwLength := SizeOf( Memory );
GlobalMemoryStatus( Memory );
dwTotalPhys1.Caption := 'Total memory: ' + IntToStr( Memory.dwTotalPhys ) + ' Bytes ' + '(' + FormatByteSize
( Memory.dwTotalPhys ) + ')';
dwAvailPhys1.Caption := 'Available memory: ' + IntToStr( Memory.dwAvailPhys ) + ' Bytes ' + FormatByteSize
( Memory.dwAvailPhys ) + ')';

解决方法

您需要使用 GlobalMemoryStatusEx. GlobalMemoryStatus限制为4gb

我不知道它是否已经在Delphi中定义了它的结构TMemoryStatusEx(它将基于Windows API的MEMORYSTATUSEX.)

您需要查看的字段是ullTotalPhys和ullAvailPhys.它们是64位无符号整数.

我忘记了,它只受Windows> = 2000支持,但这不应该是一个问题了.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

delphi – 安装&gt; 4 GB时获取总内存和可用内存

解决方法

delphi – 安装> 4 GB时获取总内存和可用内存