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
本文来自 280文秘网(https://www.it280.com)，转载请保留网址和出处
【VB取得系统信息代码】相关文章：
Vb中控件的自动排列03-23
07年4月北师大“中国古代文学史（一）”串讲（5）03-23
2018湖南省农村信用社联合社招聘科技专业人才拟聘公告03-23
元旦节送给长辈的祝福短信03-23
2022年江西上饶中考录取结果查询系统入口网站：http://www.zgsr.gov.cn/jyj/03-23
唐代史馆研究论文03-23
2014年9月四川校园招聘信息汇总03-23
什么是草原和草地生态系统03-23
三年级书信：致老师的一封信（2）03-23
2013年招商银行广东省深圳分行招聘应用系统参数规划与设计岗招聘启事03-23
首都经济贸易大学关于发放2021级硕士生录取通知书的公告03-23
法国实用及紧急电话号码03-23