Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как узнать есть ли в заданном CD-ROM'е Audio CD?

Delphi , Файловая система , CD-ROM

Как узнать есть ли в заданном CD-ROM'е Audio CD?

Можно использовать функцию Windows API GetDriveType() чтобы определить является ли дисковод CD-ROM'мом. И функцию API GetVolumeInformation() чтобы проверить VolumeName на равенство 'Audio CD'.

Пример:

Code:

function IsAudioCD(Drive : char) : bool;
var
       DrivePath : string;
       MaximumComponentLength : DWORD;
       FileSystemFlags : DWORD;
       VolumeName : string;
Begin
       sult := false;
       DrivePath := Drive + ':\';
       if GetDriveType(PChar(DrivePath)) <> DRIVE_CDROM then
               exit;
       SetLength(VolumeName, 64);
       GetVolumeInformation(PChar(DrivePath),PChar(VolumeName),
       Length(VolumeName),nil,MaximumComponentLength,FileSystemFlags,nil,0);
       if lStrCmp(PChar(VolumeName),'Audio CD') = 0 then
               result := true;
end;
 
function PlayAudioCD(Drive : char) : bool;
var
       mp : TMediaPlayer;
begin
       result := false;
       Application.ProcessMessages;
       if not IsAudioCD(Drive) then
               exit;
       mp := TMediaPlayer.Create(nil);
       mp.Visible := false;
       mp.Parent := Application.MainForm;
       mp.Shareable := true;
       mp.DeviceType := dtCDAudio;
       mp.FileName := Drive + ':';
       mp.Shareable := true;
       mp.Open;
       Application.ProcessMessages;
       mp.Play;
       Application.ProcessMessages;
       mp.Close;
       Application.ProcessMessages;
       mp.free;
       result := true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
       if not PlayAudioCD('D') then
               ShowMessage('Not an Audio CD');
end;

Взято из

DELPHI VCL FAQ Перевод с английского        

Подборку, перевод и адаптацию материала подготовил Aziz(JINX) специально для Королевства Дельфи

Статья Как узнать есть ли в заданном CD-ROM'е Audio CD? раздела Файловая система CD-ROM может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: CD-ROM ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
13.08.2020 23:39:15/0.0095119476318359/0