Ergebnis der Suchanfrage

• Forum: Library: Dateien / Laufwerke

  Re: IsAudioCD für WinNT

    Delphi
    by Garfield, 24. Nov 2006
  Ja.
  
  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
• Forum: Library: Dateien / Laufwerke

  Re: IsAudioCD für WinNT

    Delphi
    by Garfield, 24. Nov 2006
  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...
• Forum: Library: Dateien / Laufwerke

  IsAudioCD für WinNT

    Delphi
    by Garfield, 24. Nov 2006
  // 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;