Home » Tipps & Tricks » Multimedia » Audio-CDs » Prüfen, ob eine Audio-CD eingelegt ist
Prüfen, ob eine Audio-CD eingelegt ist
Die Beispielfunktion IsAudioCD erwartet das Root-Verzeichnis des CD-Laufwerks, das geprüft werden soll, als Parameter (z.B. ‚D:‘).
function IsAudioCD(Drive: string): boolean; var FSFlags: DWord; MaxLength: DWord; VolName: String; begin result:=false; if GetDriveType(PChar(drive))=DRIVE_CDROM then begin SetLength(VolName, 64); GetVolumeInformation(PChar(Drive), PChar(VolName), Length(VolName), nil, MaxLength, FSFlags, nil, 0); if lStrCmp(PChar(VolName), 'Audio CD')=0 then result:=true; end; end;