Работа с CDAudio

← →
shu_3d (2003-02-14 13:37) [0]

Привет мастера!
Стоит задача написать менеджер базы компактов с музыкой, в связи с этим надобно решить такие вопросы:
1) как получить список всех CD-Drive, установленных в системе;
2)проверить, есть ли в выбранном CD-drive компакт
3)если он музыкальный, то получить список трэков с информацией о них и о компакте;
4)проиграть выбранный трек(и);
Если кто работал в этом направлении, подскажите, плиз.
Лучше отвечать на мыло.
Спасибо большое!

← →
imbicil (2003-02-14 22:43) [1]

Для того, чтобы узнать тип устройства, используем функцию
GetDriveType.

UINT GetDriveType(
LPCTSTR lpRootPathName // корневой каталог (например, "C:\")
);

Возвращает значение, указывающее тип диска. Может быть одним из таких:

0 Невозможно распознать тип диска.
1 Корневой каталог не существует (точнее, такого диска нет)
DRIVE_REMOVABLE - Диск может быть вынят из устройства.
DRIVE_FIXED - Диск из устройства не вынимается.
DRIVE_REMOTE - Сетевой диск.
DRIVE_CDROM - CD-ROM диск.
DRIVE_RAMDISK - RAM диск.

← →
imbicil (2003-02-14 22:51) [2]

Я это нашел у себя в разработках, может поможет. Только ногами не бить. Проверяет диск на готовность

function IsDriveReady(DriveLetter : char) : bool;
var
OldErrorMode : Word;
OldDirectory : string;
begin
OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
GetDir(0, OldDirectory);
{$I-}
ChDir(DriveLetter + ":\");
{$I+}
if IoResult <> 0 then
Result := False
else
Result := True;
ChDir(OldDirectory);
SetErrorMode(OldErrorMode);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not IsDriveReady("A") then
ShowMessage("Drive Not Ready")
else
ShowMessage("Drive is Ready");
end;

Работа с CDAudio Найти похожие ветки