?? getdrive.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "系統(tǒng)信息"
ClientHeight = 5055
ClientLeft = 2100
ClientTop = 345
ClientWidth = 6300
LinkTopic = "Form1"
ScaleHeight = 5055
ScaleWidth = 6300
Begin VB.ComboBox Combo1
Height = 285
Left = 120
TabIndex = 0
Text = "Combo1"
Top = 600
Width = 1935
End
Begin VB.Label Label11
Caption = "Label11"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 11
Top = 4320
Width = 3975
End
Begin VB.Label Label10
Caption = "Label10"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 10
Top = 3840
Width = 4095
End
Begin VB.Label Label9
Caption = "選擇驅動器"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 9
Top = 240
Width = 1815
End
Begin VB.Label Label8
Caption = "Label8"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 8
Top = 3360
Width = 4215
End
Begin VB.Label Label7
Caption = "Label7"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 7
Top = 2880
Width = 3900
End
Begin VB.Label Label6
Caption = "Label6"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 6
Top = 2400
Width = 3975
End
Begin VB.Label Label5
Caption = "Label5"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 5
Top = 1920
Width = 3975
End
Begin VB.Label Label4
Caption = "Label4"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 4
Top = 1440
Width = 3855
End
Begin VB.Label Label3
Caption = "Label3"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 3
Top = 990
Width = 3975
End
Begin VB.Label Label2
Caption = "Label2"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 2
Top = 600
Width = 3975
End
Begin VB.Label Label1
Caption = "Label1"
BeginProperty Font
Name = "宋體"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 1
Top = 120
Width = 3975
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定義數(shù)據(jù)結構
Private Type SYSTEM_INFO
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 Type MEMORYSTATUS
dwLength As Long
dwMemoryLoad As Long
dwTotalPhys As Long
dwAvailPhys As Long
dwTotalPageFile As Long
dwAvailPageFile As Long
dwTotalVirtual As Long
dwAvailVirtual As Long
End Type
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long
Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)
Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
Dim sinfo As SYSTEM_INFO
Dim minfo As MEMORYSTATUS
Private Sub Combo1_Click()
Dim x As Long
Dim cl1 As Long
Dim cl2 As Long
Dim sec1 As Long
Dim byt1 As Long
Dim buff As String
Dim hdsize As Double
Dim hdavlsize As Double
buff = Combo1.Text + ":\"
x = GetDriveType(buff)
Select Case x
Case 2
Label1.Caption = "該驅動器是可移動驅動器"
Case 3
Label1.Caption = "該驅動器是固定驅動器"
Case 4
Label1.Caption = "該驅動器是網絡驅動器"
Case 5
Label1.Caption = "該驅動器是CD-ROM驅動器"
Case 6
Label1.Caption = "該驅動器是RAMDISK驅動器"
Case Else
Label1.Caption = "該驅動器無效"
End Select
x = GetDiskFreeSpace(buff, sec1, byt1, cl1, cl2)
If x Then
hdavlsize = (cl1 * sec1 * (byt1 / 1024)) / 1024
hdsize = (cl2 * sec1 * (byt1 / 1024)) / 1024
Label2.Caption = "該驅動器總共容量 " + Format$(hdsize, "##########0.00") + " MB"
Label3.Caption = "該驅動器可用容量 " + Format$(hdavlsize, "##########0.00") + " MB"
Else
Label2.Caption = ""
Label3.Caption = ""
End If
End Sub
Private Sub Form_Load()
Dim x As Long
Dim buff As String
For i = 0 To 25
buff = Chr$(65 + i) + ":\"
x = GetDriveType(buff)
If x > 1 Then
Combo1.AddItem Chr$(65 + i)
End If
Next i
Combo1.Text = "C"
Combo1_Click
x = GetSystemMetrics(SM_CXSCREEN)
Label4.Caption = "顯示器水平分辨率 " + Str$(x)
x = GetSystemMetrics(SM_CYSCREEN)
Label5.Caption = "顯示器垂直分辨率 " + Str$(x)
Call GetSystemInfo(sinfo)
Select Case sinfo.dwProcessorType
Case 386
Case 486
Case 586
Label6.Caption = "計算機處理器類型 P5"
Case Else
End Select
Call GlobalMemoryStatus(minfo)
Label7.Caption = "物理內存總容量 " + Str$(minfo.dwTotalPhys / 1024 / 1024) + " MB"
Label8.Caption = "可用物理內存 " + Str$(minfo.dwAvailPhys / 1024 / 1024) + " MB"
Label10.Caption = "虛擬內存總容量 " + Str$(minfo.dwTotalVirtual / 1024 / 1024) + " MB"
Label11.Caption = "可用虛擬內存 " + Str$(minfo.dwAvailVirtual / 1024 / 1024) + " MB"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -