最佳答案
在 VB 中尝试此代码
Private Declare Function GetVolumeInformation 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()
Dim Serial As Long
'Get the volume information
GetVolumeInformation "d:\", vbNullString, 255, Serial, 0, 0, vbNullString, 255
MsgBox Hex(Serial)
End Sub
这应该作为您的概念证明。您可以根据您选择的语言进行调整。
取自这里:VB Forums
关于windows - 通过序列号识别 CD-ROM,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9461691/