通過序列號識別光盤

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')]));