Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Apr 22, 2000

NumberOfCPUs - The number of processors

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
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date