精彩编程与编程技巧-取得磁盘序列号、卷标和文件系统类型...

取得磁盘序列号、卷标和文件系统类型 


磁盘序列号在每次软盘或硬盘格式化后都重新生成，并且不回重复。许多程序员用
此加密。其实
也可以修改该函数，可以得到磁盘卷标和文件系统类型信息。

声明：
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(sRoot As String) As Long
Dim lSerialNum As Long
Dim R As Long
Dim sTemp1 As String, sTemp2 As String
strLabel = String$(255, Chr$(0))
' 磁盘卷标
strType = String$(255, Chr$(0))
' 文件系统类型 一般为 FAT 
R = GetVolumeInformation(sRoot, strLabel, Len(strLabel), lSerialNum, 0, 
0,
strType, Len(strType))