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

Вниз

Открыть определённый CD-rom   Найти похожие ветки 

 
zoom   (2004-05-18 17:15) [0]

Как открыть сидюк, если их на компе несколько, и нужно открыть определённый. Например там J:/ или K:/ etc.
Спасибо.


 
clickmaker ©   (2004-05-18 17:43) [1]

cmd := "set cdrom " + Letter + " door open wait";
mciSendString(PChar(cmd), nil, 0, 0);


 
grom2   (2004-05-18 20:05) [2]

//vvvvvvvvvvvvvvvvvvvvvvvvv/ Open CD / Close CD /vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
function OpenCD(Drive:string):Boolean;
var
Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags,DeviceID : Word;
begin
Result:=false;
Flags:=mci_Open_Type or mci_Open_Element;
with OpenParm do begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(Drive+":");
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res<>0 then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
if Res=0 then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

function CloseCD(Drive:string):Boolean;
var
Res : MciError;
OpenParm: TMCI_Open_Parms;
Flags,DeviceID : Word;
begin
Result:=false;
Flags:=mci_Open_Type or mci_Open_Element;
with OpenParm do begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(Drive+":");
end;
Res := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
if Res<>0 then exit;
DeviceID:=OpenParm.wDeviceID;
try
Res:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
if Res=0 then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

uses mmsystem;


 
zoom   (2004-06-01 08:03) [3]

Огромное спаибо!! Вроде работает!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.06 c
14-1087984728
Adder
2004-06-23 13:58
2004.07.11
%))


1-1088344486
dido
2004-06-27 17:54
2004.07.11
Как в Label писать более одной строки?


3-1087424554
saNat
2004-06-17 02:22
2004.07.11
Почему не работают SQL-запросы при использовании ODBC


3-1087472158
Top100
2004-06-17 15:35
2004.07.11
Изменение рамеров.


1-1088513145
tamagavk
2004-06-29 16:45
2004.07.11
Проблема с StatusBar