SIGH, 有分都没人来拿

解决方案 »

  1.   

    感谢您使用微软产品。您可以通过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)。