Текущий архив: 2003.03.31;
Скачать: CL | DM;
Вниз
Как узнать все 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!
← →
Diamond Cat © (2003-02-06 00:01) [3]в цикле от a-z делаешь вызываешь GetDriveType, если ресультат функции=DRIVE_CDROM значит это сд
Страницы: 1 вся ветка
Текущий архив: 2003.03.31;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
