NumCPU

Const HKEY_LOCAL_MACHINE = &H80000002

' Return the number of processors

'

' Requires the CheckRegistryKey routine


Function GetNumberOfCPUs() As Integer
Dim keyName As String
' loop on the subkeys of HKEY_LOCAL_MACHINE\Hardware\Description\System\

' CentralProcessor

' subkeys are zero-based

Do
GetNumberOfCPUs = GetNumberOfCPUs + 1
keyName = "Hardware\Description\System\CentralProcessor\" & CStr _
(GetNumberOfCPUs)
' if this key doesn't exist, then GetNumberOfCPUs

' contains the number of keys found so far

Loop While CheckRegistryKey(HKEY_LOCAL_MACHINE, keyName)

End Function