+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : لمعرفة نوع المعالج المثبت في جهازك (/showthread.php?tid=5905)
لمعرفة نوع المعالج المثبت في جهازك - RaggiTech - 17-10-12
كاتب الموضوع : 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