Как открыть программно CD-ROM

var
OpenParm: TMCIJDpen_Parms;
GenParm: TMCI_Generic_Parms;
SetParm: TMCI_Set_Parms;
DI : Cardinal;
OK: boolean;
begin
OK:=false;
OpenParm.lpstrDeviceType := 'CDAudio';
repeat
mciSendCommand(0, mci_Open, mci_Open_Type, Longint(QOpenParm));
DI := OpenParm.wDevicelD;
mciSendCommand(DI, mci_Set, mci_Set_Door_Open, Longint(@SetParm));
mciSendCommand(DI, mci_Set, mci_Set_Door__Closed, LQngint (@SetParm)) ;
mciSendCoitrmand(DI, mci_Close, mci_Notify, Longint (@GenParm) );
sleep(5000);
until OK;
end;