VB 获取系统内存信息

最新推荐文章于 2021-04-28 17:28:25 发布

AcceZn

最新推荐文章于 2021-04-28 17:28:25 发布

阅读量1.7k

点赞数 1

分类专栏： vb 文章标签： vb 内存

本文链接：https://blog.csdn.net/AcceZn/article/details/50640818

版权

可以获取的内存信息:
- 物理内存大小
- 可用物理内存
- 物理内存占用率
- 页面内存总大小
- 可用页面内存
- 页面内存占用率
- 页面内存池大小
- 非页面内存池大小
- 虚拟内存大小
- 可用虚拟内存
- 虚拟内存占用率

代码如下(模块):

Option Explicit
Private Declare Function NtQueryInformationProcess Lib "ntdll.dll" (ByVal ProcessHandle As Long, ByVal ProcessInformationClass As Long, ByVal ProcessInformation As Long, ByVal ProcessInformationLength As Long, ByRef ReturnLength As Long) As Long
Private Declare Function NtQuerySystemInformation Lib "ntdll.dll" (ByVal SystemInformationClass As Long, ByVal SystemInformation As Long, ByVal SystemInformationLength As Long, ByRef ReturnLength As Long) As Long

Private Type LARGE_INTEGER
    LowPart