Private Const PROCESSOR_ALPHA_21064 As Long = 21064Private Const PROCESSOR_ARCHITECTURE_ALPHA As Long = 2Private Const PROCESSOR_ARCHITECTURE_ALPHA64 As Long = 7Private Const PROCESSOR_ARCHITECTURE_ARM As Long = 5Private Const PROCESSOR_ARCHITECTURE_IA64 As Long = 6Private Const PROCESSOR_ARCHITECTURE_INTEL As Long = 0Private Const PROCESSOR_ARCHITECTURE_MIPS As Long = 1Private Const PROCESSOR_ARCHITECTURE_MSIL As Long = 8Private Const PROCESSOR_ARCHITECTURE_PPC As Long = 3Private Const PROCESSOR_ARCHITECTURE_SHX As Long = 4Private Const PROCESSOR_ARCHITECTURE_UNKNOWN As Long = &HFFFF&Private Const PROCESSOR_ARM_7TDMI As Long = 70001Private Const PROCESSOR_ARM720 As Long = 1824Private Const PROCESSOR_ARM820 As Long = 2080Private Const PROCESSOR_ARM920 As Long = 2336Private Const PROCESSOR_HITACHI_SH3 As Long = 10003Private Const PROCESSOR_HITACHI_SH3E As Long = 10004Private Const PROCESSOR_HITACHI_SH4 As Long = 10005Private Const PROCESSOR_INTEL_386 As Long = 386Private Const PROCESSOR_INTEL_486 As Long = 486Private Const PROCESSOR_INTEL_IA64 As Long = 2200Private Const PROCESSOR_INTEL_PENTIUM As Long = 586Private Const PROCESSOR_INTEL_PENTIUM2 As Long = 686Private Const PROCESSOR_INTEL_PENTIUM3 As Long = 786Private Const PROCESSOR_MIPS_R4000 As Long = 4000Private Const PROCESSOR_MOTOROLA_821 As Long = 821Private Const PROCESSOR_OPTIL As Long = &H494FPrivate Const PROCESSOR_PPC_601 As Long = 601Private Const PROCESSOR_PPC_603 As Long = 603Private Const PROCESSOR_PPC_604 As Long = 604Private Const PROCESSOR_PPC_620 As Long = 620Private Const PROCESSOR_SHx_SH3 As Long = 103Private Const PROCESSOR_SHx_SH4 As Long = 104Private Const PROCESSOR_STRONGARM As Long = 2577 Private Type SYSTEM_INFOdwOemID As LongdwPageSize As LonglpMinimumApplicationAddress As LonglpMaximumApplicationAddress As LongdwActiveProcessorMask As LongdwNumberOrfProcessors As LongdwProcessorType As LongdwAllocationGranularity As LongdwReserved As LongEnd Type Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) Private Function GetProcessorType() As StringDim SystemInfo As SYSTEM_INFOGetSystemInfo SystemInfoSelect Case SystemInfo.dwProcessorType    Case PROCESSOR_ALPHA_21064        GetProcessorType = "Alpha 21604"    Case PROCESSOR_ARCHITECTURE_ALPHA        GetProcessorType = "ARCHITECTURE_ALPHA"    Case PROCESSOR_ARCHITECTURE_ALPHA64        GetProcessorType = "ARCHITECTURE_ALPHA64"    Case PROCESSOR_ARCHITECTURE_ARM        GetProcessorType = "ARCHITECTURE_ARM"    Case PROCESSOR_ARCHITECTURE_IA64        GetProcessorType = "ARCHITECTURE_IA64"    Case PROCESSOR_ARCHITECTURE_INTEL        GetProcessorType = "ARCHITECTURE_INTEL"    Case PROCESSOR_ARCHITECTURE_MIPS        GetProcessorType = "ARCHITECTURE_MIPS"    Case PROCESSOR_ARCHITECTURE_MSIL        GetProcessorType = "ARCHITECTURE_MSIL"    Case PROCESSOR_ARCHITECTURE_PPC        GetProcessorType = "ARCHITECTURE_PPC"    Case PROCESSOR_ARCHITECTURE_SHX        GetProcessorType = "ARCHITECTURE_SHX"    Case PROCESSOR_ARCHITECTURE_UNKNOWN        GetProcessorType = "ARCHITECTURE_UNKNOWN"    Case PROCESSOR_ARM_7TDMI        GetProcessorType = "ARM_7TDMI"    Case PROCESSOR_ARM720        GetProcessorType = "ARM720"    Case PROCESSOR_ARM820        GetProcessorType = "ARM820"    Case PROCESSOR_ARM920        GetProcessorType = "ARM920"    Case PROCESSOR_HITACHI_SH3        GetProcessorType = "HITACHI_SH3"    Case PROCESSOR_HITACHI_SH3E        GetProcessorType = "HITACHI_SH3E"    Case PROCESSOR_HITACHI_SH4        GetProcessorType = "HITACHI_SH4"    Case PROCESSOR_INTEL_386        GetProcessorType = "Intel 80386"    Case PROCESSOR_INTEL_486        GetProcessorType = "Intel 80486"    Case PROCESSOR_INTEL_IA64        GetProcessorType = "IA64"    Case PROCESSOR_INTEL_PENTIUM        GetProcessorType = "Intel Pentium"    Case PROCESSOR_INTEL_PENTIUM2        GetProcessorType = "INTEL_PENTIUM2"    Case PROCESSOR_INTEL_PENTIUM3        GetProcessorType = "INTEL_PENTIUM3"    Case PROCESSOR_MOTOROLA_821        GetProcessorType = "MOTOROLA_821"    Case PROCESSOR_OPTIL        GetProcessorType = "OPTIL"    Case PROCESSOR_PPC_601        GetProcessorType = "PPC_601"    Case PROCESSOR_PPC_603        GetProcessorType = "PPC_603"    Case PROCESSOR_PPC_604        GetProcessorType = "PPC_604"    Case PROCESSOR_PPC_620        GetProcessorType = "PPC_620"    Case PROCESSOR_SHx_SH3        GetProcessorType = "SHx_SH3"    Case PROCESSOR_SHx_SH4        GetProcessorType = "SHx_SH4"    Case PROCESSOR_STRONGARM        GetProcessorType = "STRONGARM"    Case PROCESSOR_MIPS_R4000        GetProcessorType = "MIPS"    Case Else        GetProcessorType = "(UNKNOWN)"End SelectEnd Function

评论