VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 取得系统信息
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:11708, 日期:2001-09-17
取得系统信息


 

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