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:

markieren

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.

markieren

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

IsAudioCD für WinNT

IsAudioCD für WinNT

Re: IsAudioCD für WinNT

Re: IsAudioCD für WinNT

Re: IsAudioCD für WinNT

Forumregeln

Codewalker Registriert seit: 18. Nov 2005 Ort: Ratingen 945 Beiträge Delphi XE2 Professional	#3 Re: IsAudioCD für WinNT 24. Nov 2006, 13:52 Zitat von Garfield: markieren 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?)? Thomas http://www.tastenhacker.de
	Zitat