Скачать: CL | DM;

Работа с 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c