zoukankan      html  css  js  c++  java
  • delphi 如何获取大于2G的物理内存大小[delphi]

    原文来自: http://my.oschina.net/pc100/blog/380020 

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

  • 相关阅读:
    《代码整洁之道》之四 注释
    《代码整洁之道》之三 函数
    《代码整洁之道》之二 有意义的命名
    《代码整洁之道》
    Hibernate学习笔记
    Struts2复习笔记
    学习Spring必学的Java基础知识
    Eclipse下搭建Maven框架
    onvif实现
    rtmp服务端实现
  • 原文地址:https://www.cnblogs.com/python001/p/4300673.html
Copyright © 2011-2022 走看看