в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:48:33Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Windows API/CPU Processor - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия