打印本文   关闭窗口

VB取得系统信息代码

作者：佚名  文章来源：不详  点击数  更新时间：2008/10/22 21:37:52  文章录入：杜斌  责任编辑：杜斌

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

打印本文   关闭窗口