假如我们想要用VB6.0 取得系统信息，可以通过VB6.0的sysinfo控件和Windows API函数来实现。
一、用sysinfo控件获得操作系统版本
要用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 system-info)
程序代码:
Private Sub Command2_ Click()
Dim sys As system-info
GetSystemInfo sys
Pring "CPU类型:";sys.dwprocessortype
Pring "no.processors:";sys.dwnumberofprocessors
End Sub
三、用Windows的Getdrivetype函数获得驱动器类型
窗体的声明代码:
Option Explicit
Const drive removable=2
Const drive fixed=3
Const drive remote = 4
Const drive cdrom=5
Const drive ramdisk=6
Private Declare Function GetDriveType Lib "kernel32"
Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
程序代码:
Private Sub Command3_ Click()
Dim i, drv, d$
For i=0 to 25
d$=Chr$(i+65)& ":"
drv=GetDriveType(d$)
Select Case drv
Case drive removable
Print "drive" & d$ & "is removable."
Case drive fixed
Print "drive" & d$ & "is fixed."
Case drive remote
Print "drive" & d$ & "is remote."
Case drivt cdrom
Print "drive" & d$ & "is cd-rome."
Case drive ramdisk
Print "drive" & d$ & "is ramdisk."
Case Else
End Select
Next i
End Sub
若创建一个标准工程，在窗体放置三个命令按纽:commandl, command2, command3。用鼠标点击按纽，即可实现上述功能。
|
