vb6 显示系统信息 高手进

来源：百度知道 编辑：UC知道 时间：2024/05/09 01:27:11
vb6 显示系统信息 用什么语句？
可以给点例子吗？
哪位高手可以提供下

要用sysinfo控件，必需在部件引用中选择Microsoft Sysinfo Control复选框。程序

代码如下：

Private Sub Command1_ Click()
Dim MsgEnd As String
Select Case SysInfo1.OSPlatform
Case 0
MsgEnd="Unidentified"
Case 1
MsgEnd="Windows 95, ver."&CStr(SysInfo1.OSVersion)
Case 2
MsgEnd="Windows NT, ver."&CStr(SysInfo1.OSVersion)
End Select
MsgBox "System:" & MsgEnd
End Select
MsgBox "System: "& MsgEnd
End Sub
二、用Windows的Getsysteminfo函数获得CPU型号

窗体的声明代码：

Private Type system-info
dwoemid As Long
dwpagesize As Long
ipminimumapplicationaddress As Long
lpmaximumapplicationaddress As Long
dwactiveprocessormask As Long
dwnumberofprocessors As Long
dwallocationgranularity As Long
dwreserved As Long
End Type
Private Declare Sub GetSystemInfo Lib "kernel32"
(IpSystemInfo As