文档章节

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

9
 958099045
发布于 2015/02/26 10:02
字数 205
阅读 55
收藏 0

原文来自: 【100脚本网 www.pc100.net  】

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


© 著作权归作者所有

9
粉丝 0
博文 6
码字总数 3321
作品 0
深圳
私信 提问
Delphi中字符串比较大小 VS Oracle-SQL中字符串比较大小

重点注意Delphi和Oracle-SQL中比较字符串时空字符串''的根本性的不同 Delphi中的字符串比较 Delphi中字符串比较大小的规则:对应位置的字符按照字符编码值逐个对比,直到遇到可以确定大小关系...

xumenger
09/29
0
0
VMware安装CentOS 6.7系统

一.虚拟机获取 百度云盘下载地址:http://pan.baidu.com/s/1bXmUvG 官网下载:http://www.vmware.com/ 二.虚拟机的安装 访问:访问:http://note.youdao.com/yws/public/redirect/share?id=e...

Kry1702
2018/06/28
0
0
Delphi下IOCP开源框架:DIOCP 成功应用案例分享

首先说明,该项目不是本人的项目,本文转自盒子。 该项目使用的DIOCP版本为1.0,目前diocp为3.5 以下是盒子的原文 ----------------------------------------------------------------------...

天地弦
2014/10/12
0
0
Delphi、PChar和Char数组的比较

Delphi、PChar和Char数组的比较   string和Char数组都是一块内存, 其中存放连续的字符. string保存具体字符的内存对用户是透明的, 由Delphi管理它的分配, 复制和释放, 用户不能干预(其实也...

技术小甜
2017/11/08
0
0
delphi fastMM 使用方法简介

delphi fastMM 使用方法简介 在 http://sourceforge.net/projects/fastmm 中可以下载到最新 stable 的 FastMM,当前推荐的是 4.62,主要特点包括: 1、彻底实现了 Borland 的内存管理器,可以...

vga
2014/08/26
1K
0

没有更多内容

加载失败,请刷新页面

加载更多

前端技术之:Prisma Demo服务部署过程记录

安装前提条件: 1、已经安装了docker运行环境 2、以下命令执行记录发生在MackBook环境 3、已经安装了PostgreSQL(我使用的是11版本) 4、Node开发运行环境可以正常工作 首先需要通过Node包管...

popgis
今天
5
0
数组和链表

数组 链表 技巧一:掌握链表,想轻松写出正确的链表代码,需要理解指针获引用的含义: 对指针的理解,记住下面的这句话就可以了: 将某个变量赋值给指针,实际上就是将这个变量的地址赋值给指...

code-ortaerc
今天
4
0
栈-链式(c/c++实现)

上次说“栈是在线性表演变而来的,线性表很自由,想往哪里插数据就往哪里插数据,想删哪数据就删哪数据...。但给线性表一些限制呢,就没那么自由了,把线性表的三边封起来就变成了栈,栈只能...

白客C
今天
43
0
Mybatis Plus service

/** * @author beth * @data 2019-10-20 23:34 */@RunWith(SpringRunner.class)@SpringBootTestpublic class ServiceTest { @Autowired private IUserInfoService iUserInfoS......

一个yuanbeth
今天
5
0
php7-internal 7 zval的操作

## 7.7 zval的操作 扩展中经常会用到各种类型的zval,PHP提供了很多宏用于不同类型zval的操作,尽管我们也可以自己操作zval,但这并不是一个好习惯,因为zval有很多其它用途的标识,如果自己...

冻结not
昨天
6
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部