获取虚存状态
程序代码:
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