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