Private Declare Function hardisk Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
On Error GoTo Err_Form_Load
Dim aa As Long
Dim VolName As String
Dim disnun As Long
Dim Maxlen As Long
Dim Sysflag As Long
Dim fsysName As String
aa = hardisk("c:\", VolName, 256, disnun, Maxlen, Sysflag, fsysName, 256)
MsgBox "c 硬盤序列號(16制): " & Hex(disnun)
Exit Sub
Err_Form_Load:
End Sub
上一篇:消防手抄報怎麽做下一篇:大眾汽車顯示藍牙關閉怎麽回事