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;