| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 538 人关注过本帖
标题:获取虚存状态
只看楼主 加入收藏
ioriliao
Rank: 7Rank: 7Rank: 7
来 自:广东
等 级:贵宾
威 望:32
帖 子:2829
专家分:647
注 册:2006-11-30
结帖率:78.95%
收藏
 问题点数:0 回复次数:0 
获取虚存状态
程序代码:
Private Type MEMORYSTATUS
        'MEMORYSTATUS结构大小
        dwLength As Long
        '已使用内存所占的百分比
        dwMemoryLoad As Long
        '物理存储器的总字节数
        dwTotalPhys As Long
        '空闲物理存储器的字节数
        dwAvailPhys As Long
        '页文件包含的最大字节数
        dwTotalPageFile As Long
        '用户模式分区中空闲内存大小
        dwAvailPageFile As Long
        '用户模式分区大小
        dwTotalVirtual As Long
        '当前进程中还剩下的自由区域的总和
        dwAvailVirtual As Long
End Type

'检索当前内存状态的动态信息
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)






Private Sub Form_Click()
    Dim mStaus As MEMORYSTATUS
    Call GlobalMemoryStatus(mStaus)
    Print "MEMORYSTATUS结构大小:" & mStaus.dwLength
    Print "已使用内存所占的百分比:" & mStaus.dwMemoryLoad
    Print "物理存储器的总字节数:" & mStaus.dwTotalPhys
    Print "空闲物理存储器的字节数:" & mStaus.dwAvailPhys
    Print "页文件包含的最大字节数:" & mStaus.dwTotalPageFile
    Print "用户模式分区中空闲内存大小:" & mStaus.dwAvailPageFile
    Print "用户模式分区大小:" & mStaus.dwTotalVirtual
    Print "当前进程中还剩下的自由区域的总和:" & mStaus.dwAvailVirtual
End Sub
搜索更多相关主题的帖子: 虚存 状态 获取 
2008-11-10 17:03
快速回复:获取虚存状态
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024597 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved