通过序列号识别光盘

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

Answer 2

Windows.GetVolumeInformation语法

GetVolumeInformation(
    lpRootPathName: PChar; {the path to the root directory} 
    lpVolumeNameBuffer: PChar; {the buffer receiving the volume name} 
    nVolumeNameSize: DWORD; {the maximum size of the buffer} 
    lpVolumeSerialNumber: PDWORD; {a pointer to the volume serial number} 
    var lpMaximumComponentLength: DWORD; {maximum file component name} 
    var lpFileSystemFlags: DWORD; {file system flags} 
    lpFileSystemNameBuffer: PChar; {the buffer receiving the file system name} 
    nFileSystemNameSize: DWORD {the maximum size of the file system name} 
): BOOL; {returns TRUE or FALSE} 

---

德尔福端口（略改编自Andrei G的帖子）

GetCDROMSerial片段：

用法示例：

ShowMessage(Format('%X', [GetCDROMSerial('F')]));