Private 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
　　Private Declare Sub GetSystemInfo Lib \"kernel32\" (lpSystemInfo As SYSTEM_INFO)
　　Private Sub Command1_Click()
　　Dim len5 As Long, aa As Long
　　Dim sysinfo As SYSTEM_INFO
　　Call GetSystemInfo(sysinfo)
　　End Sub
　　examda提示:
　　dwProcessorType
　　Platform Value
　　============ ===============================
　　Windows 95 PROCESSOR_INTEL_386 = 386
　　PROCESSOR_INTEL_486 = 486
　　PROCESSOR_INTEL_PENTIUM = 586
　　Windows NT PROCESSOR_INTEL_386
　　PROCESSOR_INTEL_486
　　PROCESSOR_INTEL_PENTIUM
　　PROCESSOR_MIPS_R4000 4000
　　PROCESSOR_ALPHA_21046 21046