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

Вниз

Как выдвинуть лоток конкретного CD-ROM a без помощи TMediaPlayer   Найти похожие ветки 

 
KPV-10k ©   (2003-03-25 21:14) [0]

Как выдвинуть/задвинуть дверцу конкретного CD-ROM"a без помощи TMediaPlayer(или как получить DeviceID любого CD-ROM"a для ф-ции mciSendCommand


 
ed   (2003-03-25 23:35) [1]

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; // См. mci_Open
With OpenParm do
begin
dwCallback := 0;
lpstrDeviceType := "CDAudio";
lpstrElementName := PChar(S);
end;
Err := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
IF Err<>0 Then exit;
DeviceID:=OpenParm.wDeviceID;
try
Err:=mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);

IF Err=0 Then exit;
Result:=True;
finally
mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
disk:Char;//этой переменной присваивай нужный привод
begin

OpenCD(Disk);
end;




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

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

Наверх




Память: 0.46 MB
Время: 0.02 c
1-83468
Grac
2003-05-15 10:47
2003.05.26
Перевод в Integer


9-83312
GameBoy
2002-12-15 22:09
2003.05.26
Взрывы и дымы


14-83745
Lola
2003-04-25 16:04
2003.05.26
---|Ветка была без названия|---


1-83547
zeratul_pr
2003-05-13 22:28
2003.05.26
Список файлов в memo...


3-83370
Ruff
2003-05-05 16:30
2003.05.26
Тормоза при работе с DBF