Visual Basic取得系统的信息代码

您现在的位置：星云网络 >> 文章中心 >> 基础学习 >> 编程学习 >> 文章正文

文章搜索:

Visual Basic取得系统的信息代码

作者：佚名文章来源：本站原创点击数：更新时间：2007-10-13

有时候我们需要取得操作系统的相关信息，这在一些软件里也是经常用到的，那么如何在VB里实现这个功能呢?请看下面的代码：

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

　　这里用到了API函数，大家一定要对API函数有所了解，这可是好东西呀！