Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.29;
Скачать: 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 вся ветка

Текущий архив: 2003.05.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
4-95161
caesar
2003-04-02 10:58
2003.05.29
SystemTray


14-95103
Дмитрий К.К.
2003-05-12 05:30
2003.05.29
Именинники 12 мая


7-95147
a413
2003-03-29 20:58
2003.05.29
Как обработать <Alt>+<Esc>


14-95111
iskatel
2003-05-12 12:39
2003.05.29
Высокая духовность. Что это.


1-94844
Leva
2003-05-20 02:45
2003.05.29
Как в Дельфи открыть Internet Explorer c нужной страничкой