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。用鼠标点击按纽，即可实现上述功能。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
