Visual Basic取得系统的信息代码

以下是引用片段： 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