感谢您使用微软产品。您可以通过GlobalMemoryStatus方法来获得Windows2000的内存状况,包括物理内存容量,可用内存容量等,请参考以下代码: Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) Private 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 TypePrivate Sub Command1_Click() Dim mem As MEMORYSTATUS GlobalMemoryStatus mem MsgBox "physical Memory is:" & mem.dwTotalPhys End Sub关于GlobalMemoryStatus方法,请参考以下文章: Platform SDK: Memory Management GlobalMemoryStatus http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/memman_090z.asp微软全球技术中心 VB技术支持 本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private 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 TypePrivate Sub Command1_Click()
Dim mem As MEMORYSTATUS
GlobalMemoryStatus mem
MsgBox "physical Memory is:" & mem.dwTotalPhys
End Sub关于GlobalMemoryStatus方法,请参考以下文章:
Platform SDK: Memory Management GlobalMemoryStatus
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/memory/memman_090z.asp微软全球技术中心 VB技术支持
本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。