100+ |
Is there a way how I can identify a CD?
I want 2 create a CD player which identifies previously inserted CDs and automaticly play a playlist. To do so I need a way to distinguish a CD from a different CD. can anyone help me?
hi
may be some use to u -
-
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 LVSN As Long, n As Long, s1 As String, s2 As String
-
s1 = String$(255, Chr$(0))
-
s2 = String$(255, Chr$(0))
-
n = GetVolumeInformation("e:", s1, Len(s1), LVSN, 0, 0, s2, Len(s2))
-
'The value returned in LVSN (Volume Serial Number) is the CD identification number.
-
End Sub
-
-
-
| |