Re: cd door open
Тема: cd door open
> Существует ли API для открытия лотка CD-Rom'а?
> А то не очень хочется использовать для этого mediaplayer.
Пишите, на каком языке :)). Даю для Delphi: входит и выходит - замечательно выходит
...
uses MMSystem;
procedure TForm1.FormClick(Sender: TObject);
var
OpenParm: TMCI_Open_Parms;
GenParm : TMCI_Generic_Parms;
SetParm : TMCI_Set_Parms;
DI: Cardinal;
begin
OpenParm.lpstrDeviceType:='CDAudio';
mciSendCommand(0, mci_open, mci_Open_Type, Longint(@OpenParm));
DI := OpenParm.wDeviceID;
mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));
mciSendCommand(DI, mci_Set, mci_Set_Door_Closed, Longint(@SetParm));
mciSendCommand(DI, mci_Close, mci_Notify, Longint(@GenParm));
end;
