用VB6.0取得系统信息技巧

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

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

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