Как узнать все DeviceID CD-DRIVE s для команды mciSendCommand

← →
KPV-10k © (2003-02-02 20:31) [0]

Господа, нужно узнать все 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;
)

← →
KPV-10k © (2003-02-05 21:13) [1]

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

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

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

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

Как узнать все DeviceID CD-DRIVE s для команды mciSendCommand Найти похожие ветки