CPUの数を取得するには

システムのＣＰＵの数を取得します
キーワードは「GetSystemInfo()関数」。
GetSystemInfo()関数は、システム（メモリとプロセッサ関係）に関する情報を取得する関数です。


実行中の様子




Private Type SYSTEM_INFO
    dwOemID As Long                     'Windows9x系のとき0
    dwPageSize As Long                  'メモリページのサイズ
    lpMinimumApplicationAddress As Long '利用可能な最下位アドレス
    lpMaximumApplicarionAddress As Long '同、最上位アドレス
    dwActiveProcessMask As Long         'システム中のプロセスを示すビットマスク
    dwNumberOfProcessorors As Long      '同、プロセッサ数
    dwProcessorType As Long             'Windows9x系のとき、プロセッサタイプを指定する定数
    dwAllocationGranularity As Long     'アドレス領域の割り当て単位
    dwReserved As Long                  '常に0
End Type
'dwProcessorTypeの定数
Private Const PROCESSOR_INTEL_386 = 386
Private Const PROCESSOR_INTEL_486 = 486
Private Const PROCESSOR_INTEL_PENTIUM = 586

'SYSTEM_INFO構造体のデータを取得する
Private Declare Sub GetSystemInfo Lib "kernel32.dll" (lpSystemInfo As SYSTEM_INFO)


Private Sub Command1_Click()
Dim lpSYSTEM_INFO As SYSTEM_INFO
Call GetSystemInfo(lpSYSTEM_INFO)
MsgBox "CPUの数：" & lpSYSTEM_INFO.dwNumberOfProcessorors
End Sub

ダウンロード