如何调用getvolumeinformation获得磁盘序列号.txt

VB技巧问答10000例 VB技巧问答10000例

下 面 的 这 个 例 子 是 使 用 GetVolumeInformation获 得 磁 盘 的 序 列 号 ： 
    Private Declare Function GetVolumeInformation Lib _ 
     "kernel32.dll" Alias "GetVolumeInformationA" (ByVal _ 
     lpRootPathName As String, ByVal lpVolumeNameBuffer As _ 
     String, ByVal nVolumeNameSize As Integer, _ 
     lpVolumeSerialNumber As Long, lpMaximumComponentLength _ 
     As Long, lpFileSystemFlags As Long, ByVal _ 
     lpFileSystemNameBuffer As String, ByVal _ 
     nFileSystemNameSize As Long) As Long 
     
     Function GetSerialNumber(strDrive As String) As Long 
     Dim SerialNum As Long 
     Dim Res As Long 
     Dim Temp1 As String 
     Dim Temp2 As String 
     Temp1 = String$(255, Chr$(0)) 
     Temp2 = String$(255, Chr$(0)) 
     Res = GetVolumeInformation(strDrive, Temp1, _ 
     Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2)) 
     GetSerialNumber = SerialNum 
     End Function 
    调 用 时 使 用 GetSerialNumber("C:\")就 可 以 了 。 
<END>