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

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

не получается вытащищить СД! [D6, Win95/98]

rog ©   (2002-05-03 07:58:00) 

Здравствуйте,у меня 4 сд-рома, мне надо вытащить любой по его букве, посмотрел в Faq, но MciSendcommand.. не вытащила не один сд-ром.Может есть какие нибудь ещё способы для вытаскивания сд.
(уже два дня пробую по всякому, но никак, а Сд-плеер с виновсом который спокойно вытаскивает диск из любого сд-рома)

---

rog   (2002-05-10 10:05:00) [1]

Спасибо, попробую.

---

Anatoly Podgoretsky   (2002-05-03 09:11:00) [2]

uses MMSystem;

procedure CloseCD(Drive : char);
var
mp : TMediaPlayer;
begin
result := false;
Application.ProcessMessages;
mp := TMediaPlayer.Create(nil);
mp.Visible := false;
mp.Parent := Application.MainForm;
mp.Shareable := true;
mp.DeviceType := dtCDAudio;
mp.FileName := Drive + ":";
mp.Open;
Application.ProcessMessages;
mciSendCommand(mp.DeviceID,
MCI_SET, MCI_SET_DOOR_CLOSED, 0);
Application.ProcessMessages;
mp.Close;
Application.ProcessMessages;
mp.free;
result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CloseCD("D");
end;

---

Наверх