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位 不会有以上问题

  • 相关阅读:
    window10 安装docker
    el-select value是数字不回显
    JS垃圾回收机制(转)
    mybatis 动态sql (转载)
    mybatis SQL 语句构建器
    vue 面试总结
    Stream解析(转载)
    JVM参数
    SourceTree 版本跳过bitbucket注册方法
    win10配置git SSH
  • 原文地址:https://www.cnblogs.com/python001/p/4300673.html
Copyright © 2011-2022 走看看