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

  • 相关阅读:
    display: flex
    TTStand --Variant的应用
    跨域
    HTTP 响应状态代码
    SQL Server 2017 Developer and Express
    WPF 中 通过点击ListBox中的元素自动选中一整项
    C#计算屏幕的物理宽和高
    C#常用设计模式
    EntityFrameworkCore之工作单元的封装
    内存包装类 Memory 和 Span 相关类型
  • 原文地址:https://www.cnblogs.com/python001/p/4300673.html
Copyright © 2011-2022 走看看