取得系统信息

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

注：
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