VBA/Excel/Access/Word/Windows API/CPU Processor — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:48, 26 мая 2010
Get CPU Processor Information
<source lang="vb">
Type MEMORYSTATUS
dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long
End Type Type SYSTEM_INFO
dwOemID As Long dwPageSize As Long lpMinimumApplicationAddress As Long lpMaximumApplicationAddress As Long dwActiveProcessorMask As Long dwNumberOrfProcessors As Long dwProcessorType As Long dwAllocationGranularity As Long dwReserved As Long
End Type Declare Sub abGetSystemInfo Lib "kernel32" Alias "GetSystemInfo" (lpSystemInfo As SYSTEM_INFO) Sub GetSysInfo()
Dim intMousePresent As Integer Dim strBuffer As String Dim intLen As Integer Dim MS As MEMORYSTATUS Dim SI As SYSTEM_INFO abGetSystemInfo SI Debug.Print "ProcessorMask" & SI.dwActiveProcessorMask Debug.Print "NumberOfProcessors" & SI.dwNumberOrfProcessors Debug.Print "ProcessorType" & SI.dwProcessorType
End Sub
</source>
Get the Processor type and number of processors
<source lang="vb">
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) 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 Sub DisplaySystemInfo()
Dim lpSysInfo As SYSTEM_INFO GetSystemInfo lpSysInfo Debug.Print "Number of processors: " & lpSysInfo.dwNumberOfProcessors Debug.Print "Processor type: " & lpSysInfo.dwProcessorType
End Sub
</source>