ZjiÜt∞nφ typu procesoru
Deklarujte:
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
Public Enum etProcessorType
PROCESSOR_INTEL_386 = 386
PROCESSOR_INTEL_486 = 486
PROCESSOR_INTEL_PENTIUM = 586
PROCESSOR_MIPS_R4000 = 4000
PROCESSOR_ALPHA_21064 = 21064
End Enum
Private m_typSystemInfo As SYSTEM_INFO
Private Declare Sub GetSystemInfo Lib "kernel32" _
(lpSystemInfo As SYSTEM_INFO)
Private Function ProcessorType() As etProcessorType
'V deklaraci najdete v²znam nßvratov²ch hodnot
GetSystemInfo m_typSystemInfo
ProcessorType = m_typSystemInfo.dwProcessorType
End Function
Pou₧itφ:
MsgBox ProcessorType