| |
Определить количество процессоров в компьютере |
|
| |
Option Explicit
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type
Private m_typSystemInfo As SYSTEM_INFO
Public Function NumberOfProcessors() As Long
GetSystemInfo m_typSystemInfo
NumberOfProcessors = m_typSystemInfo.dwNumberOfProcessors
End Function
Private Sub Form_Load()
MsgBox NumberOfProcessors
End Sub
|
|
| |
|
|
|
|