众兄们好！很简的问题，如何知道系统中的内存？

Question

GlobalMemoryStatus:获取内存状态。它的参数类型比较特殊，需要自己定义一个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 Type
其中有四个是我们要用到的：dwTotalPhys返回物理内存总量，dwAvailPhys返回可用内存总量，dwTotalVirtual返回虚拟内存总容量，dwAvailVirtual返回可用虚拟内存。其他返回值可根据需要选用。

Answer 1

感谢您使用微软产品。以下文章的示例程序中有一段调用GlobalMemoryStatus的代码,您可以参考使用:
HOWTO: Get Windows Status Information via API Calls (Q161151)
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q161151 - 微软全球技术中心 VB技术支持本贴子以“现状”提供且没有任何担保，同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。为了为您创建更好的讨论环境，请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

Answer 2

需用到以下VB API： 
Public Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long         其中RegQueryValueEx 用来读注册表中的键值！format(dwTotalPhys \1024,"#,###,###") KB!

Answer 3

昨天才知道用  ch21st(风尘鸟)  说的办法了.   当然分肯定会有的.微软全球技术中心 VB技术支持  在里面不太好找,
或许我没对此没有耐心.water_j(jxp) 的办法还没试,  我想能成的.如何不用SELL调用 windows中的计算器？

Answer 4

再推荐一种方法：WMI！
  可以得到你想要的任何东西！

Answer 5

为什么又不说了？
何为WMI！？
放心吧分是有的!