[Delphinic]

мне надо распознать CDaudio тоесть надо так
если это сдаудио тогда CDAUD := True; CDAUD : Boolean;
Тоесть прогрмма должна знать что это именно аудиосд и не двд с софтом и не сд с cофтом а именно аудио сд!
В библиотеке BASS есть
BASS_CD_GetID(Drive, BASS_CDID_CDDB);
Но выдыет такой код немыслимый аж жуть. Вот незнаю как это оформить
Например диск с софтом
0211de01 1 150 4576
Аудиосд 1
f00e4612 18 150 24826 43512 52100 57935 77758 94523 105648 120688 140851 161417 182402 199304 221284 234081 246414 255039 266999 3656
Аудиосд 2
c20c380d 13 150 28950 43670 59175 76405 95135 112970 129900 144567 165642 179822 196825 216015 3130
Двд с софтом
02778901 1 150 30603

И так далее, отличие есть конечно
все аудиодиски имеют длинный код, но это так зрительно, на самом деле в этом всем и быстрее всего в первых цифрах зашифрована та инфа что мне нужна но как ее добыть незнаю даже...

[Tigrillo]

посмотри справку по компоненту BASS, и к сведению - TMediaplayer - рульная штука, если уметь пользоваться, а не тупо тыркать.

[Delphinic]

Ничего там не нарыл.

[ilang]

Вот так сходу в голову пришел один вариант:

Кидаешь TMediaPlayer, делаешь его невидимым. Устанавливаешь свойство DeviceType := dtCDAudio.
Ну а для проверки пишешь такой код:

Код:

procedure CheckCD;
begin

  With MediaPlayer1 do
  begin
    Open;  //открываем устройство
    Play;  //пытаемся воспроизвести

    if (Mode = mpPlaying) then       //проверяем состояние
      ShowMessage ('Музыкальный компакт диск')
    else
    if (Mode = mpStopped) then
      ShowMessage ('Диск с данными')
    else
      ShowMessage('Отсутствует компакт-диск');
    Close
  end

end;

Смысл такой - если воспроизводится, то значит Audio CD. Топорно конечно, но по идее должно работать

[Delphinic]

попробовал так, все окей! Но так конечно неправильно но всетаки хоть работает.

[ilang]

Забыл Stop поставить:

Код:

...

    if (Mode = mpPlaying) then       //проверяем состояние
    begin
      Stop;
      ShowMessage ('Музыкальный компакт диск')
    end
...

Хотя, я думаю ты догадался