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