| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как узнать все DeviceID CD-DRIVE s  для команды mciSendCommand [D6, D7, Win95/98, Win2k]

KPV-10k ©   (2003-02-02 20:31:00) 

Господа, нужно узнать все DeviceID CD-приводов, но без использования TMediaPlayer
(c TMediaPlayer это делается так:
procedure OpenCD(Drive : Char);
Var
mp : TMediaPlayer;
begin
mp := TMediaPlayer.Create(nil);
mp.Visible := False;
mp.Parent := Handle;
mp.Shareable := True;
mp.DeviceType := dtCDAudio;
mp.FileName := Drive + ":";
mp.Open;
mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
mp.Close;
mp.free;
end;
)

---

Diamond Cat   (2003-02-06 00:01:00) [1]

в цикле от a-z делаешь вызываешь GetDriveType, если ресультат функции=DRIVE_CDROM значит это сд

---

Robert   (2003-02-05 22:11:00) [2]

Please, see MSDN documentation:
a) Platform SDK: Windows Multimedia - "Using MCI Command Messages"
b) Platform SDK: Windows Multimedia - "MCI Reference"
Good luck!

---

KPV-10k   (2003-02-05 21:13:00) [3]

Ну что, так никто и не знает как решить эту проблему?

---

Наверх