[RaggiTech]

كاتب الموضوع : AhmedEssawy

في قسم التصاريح :

كود :

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

والكود :

كود :

Public Function ProcessorType() As etProcessorType
'See declarations for meaning of returned values
GetSystemInfo m_typSystemInfo
ProcessorType = m_typSystemInfo.dwProcessorType
End Function