Форум: "Основная";
Текущий архив: 2002.09.26;
Скачать: [xml.tar.bz2];
ВнизВыдвинуть 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c