使用 realbasic 获取 Windows 上的 CPU 数量

Question

我尝试使用 WMI，但到目前为止没有成功。

Dim objLocator As New OLEObject("WbemScripting.SWbemLocator")
Dim objService As OLEObject
objService = objLocator.ConnectServer(".", "root\cimv2")
Dim instances As OLEObject
instances = objService.InstancesOf("Win32_ComputerSystem")

无论我接下来尝试做什么都会触发 OLE 异常。是否有任何其他已知的方法可以通过 REALbasic 以编程方式获取 CPU 计数。我知道我可以从 shell 类执行 vbscript，但这对我来说有点难看。

Answer 1

您可以调用 GetSystemInfo 函数并使用 的 dwNumberOfProcessors 成员href="http://msdn.microsoft.com/en-us/library/windows/desktop/ms724958%28v=vs.85%29.aspx" rel="nofollow">SYSTEM_INFO 结构。

看一下下面的示例代码：

  Declare Sub GetSystemInfo Lib "kernel32" Alias "GetSystemInfo" (lpSystemInfo As Ptr)

  Dim SystemInfo as MemoryBlock=new MemoryBlock(36)
  GetSystemInfo(SystemInfo)
  Dim ProcessorCount as Integer=SystemInfo.Long(20)

SYSTEM_INFO 结构的大小为 36 字节。 dwNumberOfProcessors 之前的成员的大小为 20 字节。