如何调用GetVolumeInformation获得磁盘序列号
编号：QA000894
建立日期: 1999年5月2日 最后修改日期：1999年5月2日
所属类别：
richard tsang:
Visual Basic 5.0 sp3
Win95 osr2
有没有WinAPI GetVolumeInformation 函数的VB5例程？
回答:
下面的这个例子是使用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:\")就可以了。
相关问题：
QA001266 "磁盘序列号能否作为程序加密的依据"
QA000801 "如何在Windows下实现对磁盘进行绝对读写"
此问题由李海回答。
| |
|
|
| |
|
|
