IsAudioCD für WinNT

[Garfield]

Delphi-Quellcode:

 // IsAudioCD ?
//==============================================================================
function IsAudioCD(const CDDrive: Char) : Boolean;
const
  CDROM_DISK_AUDIO_TRACK      = $00001;
  CDROM_DISK_DATA_TRACK       = $00002;
  IOCTL_CDROM_DISK_TYPE       = $20040;
type
  CDROM_DISK_DATA = Record
    DiskData : ULONG;
  end;
var
  CDHandle : THandle;
  cdd      : CDROM_DISK_DATA;
  rb       : DWord;
begin
  Result := False;

  CDHandle := CreateFile(PChar('\\.\' + CDDrive + ':'),
                         GENERIC_READ or GENERIC_WRITE,
                         FILE_SHARE_READ or FILE_SHARE_WRITE,
                         nil,
                         OPEN_EXISTING,
                         FILE_ATTRIBUTE_NORMAL,
                         0);

  rb     := 0;

  if (CDHandle <> INVALID_HANDLE_VALUE)
  and DeviceIoControl(CDHandle,
                      IOCTL_CDROM_DISK_TYPE,
                      Nil,
                      0,
                      @cdd,
                      sizeof(cdd),
                      rb,
                      Nil)
  then
    Result := cdd.DiskData and $03 = 1;

  CloseHandle(CDHandle);
end;

Der Funktion wird der Laufwerksbuchstabe des CDROMs übergeben. In der Function wird das Handle auf das Laufwerk bzw die CD geholt, der CDROM_DISK_TYPE ermittelt und das Handle wieder geschlossen.

Wird in dem Laufwerk eine AudioCD gefunden, ist das Ergebnis TRUE. In allen anderen Fällen, zB keine CD, DatenCD, MixedCD, ist das Ergebnis FALSE.

[Garfield]

Mit der Zeile
Result := cdd.DiskData and $03 = 1; wird bestimmt, ob auf der CD nur Datentracks, nur Audiotracks oder beides enthalten sein darf.

Wenn Du weniger streng bist und
Result := cdd.DiskData and $01 = 1; nimmst, bekommst Du auch TRUE, wenn Audio- und Datentracks auf der CD sind. Deine Methode versagt dann allerdings.

Vergleiche auch http://www.delphipraxis.net/internal...ct.php?t=80846

[Codewalker]

Zitat von Garfield:

Delphi-Quellcode:

 // IsAudioCD ?
    Result := cdd.DiskData and $03 = 1;

Prüfst du damit nicht, ob sowohl Daten- als auch Audiotracks vorhanden sind (sowas wie CD-Extra?)?

[Garfield]

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';