VB 版 (精华区)

发信人: alias (白桦林), 信区: VB
标  题: Win95系统API函数大揭秘(7)
发信站: 哈工大紫丁香 (Wed Jul 26 10:58:16 2000), 转信

发信人: yucheng (Bingo), 信区: VisualBasic       
发信站: BBS 水木清华站 (Fri Feb 25 17:29:12 2000)

确定内存
我们经常要访问Windows管理的内存。对应用程序性能影响最大的因素是可用的内存容量
，访问系
统内存在处理类似于位图文件之类的大文件时非常有用，因为程序通过交换文件（Swap
）的方法，可以
获得比实际可用内存更大的内存。知道内存如何分配后，就可以读入内存值并操作大型
数字文件。可以
用丰富的Win32 API函数确定Windows 的全局内存并操作数据文件，这些对于确定程序能
否正常工作非
常有用。
dwLength                 数据结构的长度
dwMemoryLoad             内存使用百分比
dwTotalPhys             实际内存总字节数
dwAvailPhys             可用的实际内存字节数
dwTotalPageFile        分页文件总字节数
dwAvailPageFile        分页文件可用字节数
dwTotalVirtual             虚拟内存的总字节数
dwAvailVirtual             可用的虚拟内存字节数
加入代码如下的模块：
Type 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
Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
窗体中加入如下代码：
Private Sub Form_Click()
Dim m As MEMORYSTATUS
m.dwLength = Len(m)
GlobalMemoryStatus m
Print "数据结构的长度", m.dwLength
Print "内存使用百分比", m.dwMemoryLoad
Print "实际内存总字节数 ", m.dwTotalPhys
Print "可用的实际内存字节数", m.dwAvailPhys
Print "分页文件总字节数", m.dwTotalPageFile
Print "分页文件可用字节数", m.dwAvailPageFile
Print "虚拟内存的总字节数", m.dwTotalVirtual
Print "可用的虚拟内存字节数", m.dwAvailVirtual
End Sub


--
有人说我捂着脸的时候特象周润发，你信不信？
    Flying                            Fox          
   Flying                       Fox                 
     Flying                  Fox              
        Flying            Fox                   
           Flying      Fox                      

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: mig.bbs@smth.org]