Thema: Delphi IsAudioCD für WinNT

Einzelnen Beitrag anzeigen

Benutzerbild von Garfield
Garfield

Registriert seit: 9. Jul 2004
Ort: Aken (Anhalt-Bitterfeld)
1.335 Beiträge
 
Delphi XE5 Professional
 
#4

Re: IsAudioCD für WinNT

  Alt 24. Nov 2006, 14:56
Zitat von Codewalker:
Prüfst du damit nicht, ob sowohl Daten- als auch Audiotracks vorhanden sind (sowas wie CD-Extra?)?
Ja.

Delphi-Quellcode:
    case cdd.DiskData and $03 of
      CDROM_DISK_AUDIO_TRACK: // 1
        Result := 'AudioCD';

      CDROM_DISK_DATA_TRACK: // 2
        Result := 'DatenCD';

      CDROM_DISK_DATA_TRACK + CDROM_DISK_AUDIO_TRACK: // 3
        Result := 'MixedCD';
Gruss Garfield
Ubuntu 22.04: Laz2.2.2/FPC3.2.2 - VirtBox6.1+W10: D7PE, DXE5Prof
  Mit Zitat antworten Zitat