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

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

Выдвинуть CD-ROM

PONTIY ©   (2002-09-16 12:51:00) 

В общем-то топик. Подскажите пожалуйста, как в делфях выдвинуть CD-ROM?

---

MegaBass   (2002-09-16 13:19:00) [1]

можно и попроще:


//откр.:
mciSendString( "Set cdaudio door open wait", nil, 0, application.handle);

//закр.:
mciSendString( "Set cdaudio door closed wait", nil, 0, application.handle);


---

BOA_KAA   (2002-09-16 13:10:00) [2]

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988619714&n=15

Вообще-то подобной инфы полно в сети...

---

MegaBass   (2002-09-16 13:10:00) [3]

uses
... MMSystem;

function OpenCD(Drive : Char) : Boolean;
Var
Err : MciError;
OpenParm: TMCI_Open_Parms;

Flags : DWord;
S : String;
DeviceID : Word;
begin
Result:=false;
S:=Drive+":";
Flags:=mci_Open_Type or mci_Open_Element; //

---

Наверх