Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.26;
Скачать: CL | DM;

Вниз

Выдвинуть CD-ROM   Найти похожие ветки 

 
PONTIY ©   (2002-09-16 12:51) [0]

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


 
BOA_KAA ©   (2002-09-16 13:10) [1]

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

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


 
MegaBass ©   (2002-09-16 13:10) [2]

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; //


 
MegaBass ©   (2002-09-16 13:19) [3]

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2002.09.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-85370
Igor V.
2002-09-05 06:38
2002.09.26
Проблема при выполнении хранимой (ADO)


3-85358
13-ый
2002-09-05 00:57
2002.09.26
Как сообщить SQL-ю, что SUM, DATE не команды, а поля ?!!


1-85482
Ежик
2002-09-16 16:38
2002.09.26
Как из txt файла вывести в memo слова начинающие, на букву


14-85681
.nuke
2002-08-29 22:41
2002.09.26
Есть маааненькая проблемка процем


3-85328
str_
2002-09-03 10:51
2002.09.26
Ручная настрока BDE?