Wie kann ich die ID-Nummer einer Audio-CD ermittlen?
Dieses Beispiel zeigt, wie man die ID-Nummer einer Audio-CD ermittelt, die auch der Windows-eigene CD-Player als Identifikation benutzt:
verwendete Komponenten :
mp : TMediaPlayer PlayerForm : TForm
function TForm1.GetCDName : String; var InfoParm : TMCI_Info_Parms; lpInfoString : PChar; const lenInfoString = 17; begin playerform.mp.DeviceType := dtCDAudio; if not playerform.mp.AutoOpen then playerform.mp.Open; GetMem(lpInfoString,lenInfoString); InfoParm.dwCallback := 0; InfoParm.lpstrReturn := lpInfoString; InfoParm.dwRetSize := lenInfoString; mciSendCommand(playerform.mp.DeviceID, mci_Info, (mci_Wait or {MCI_INFO_MEDIA_UPC} MCI_INFO_MEDIA_IDENTITY), Longint(@InfoParm) ); Result := StrPas(lpInfoString); FreeMem(lpInfoString,lenInfoString); end;
Delphi 1 | Delphi 2 | Delphi 3 | Delphi 4 |
nicht getestet | Version nicht betroffen | getestet |
siehe auch:
Wie kann ich feststellen, ob eine Audio-CD im Laufwerk liegt?
Wie kann ich bei mehreren CD-ROM-Laufwerken ein bestimmtes für
Audio-CD-Wiedergabe bestimmen?
Wie kann ich die Schublade des CD-Laufwerks ein-/ausfahren?