windows - 通过序列号识别光驱

Question

我对 CD 识别感兴趣。

我的问题:

是否有可以通过编程方式检索的序列号？

编辑(已解决):

1. VB版本
2. Delphi版本

Answer 1

在 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