TmediaPlayer, bir CD-ROM'a komuta ediyorsa, Eject tusuna basildiginda,, CD-ROM kapagini acabilir. Fakat tekrar Eject tusuna basildiginda acik durumdaki kapagi kapatamaz. Bu nedenle bir adet kapat butonu kullanilmalidir. Asagidaki kod örneginde, baska bir buton kullanilarak kapagin kapatilmasi gösterilmektedrir.
procedure TForm1.Button1Click(Sender: TObject);
begin
if MediaPlayer1.Mode = mpOpen then
begin
mciSendCommand(MediaPlayer1.DeviceID,
MCI_SET,MCI_SET_DOOR_CLOSED,0);
Button1.Caption := '&Open'
end
else
begin
mciSendCommand(MediaPlayer1.DeviceID
,MCI_SET,MCI_SET_DOOR_OPEN,0);
Button1.Caption := '&Close';
end;
end;
Genel olarak bu islemin yapilmasi icin ise Mmsystem uniti kullanilarak, asagidaki fonksiyonlar kullanilabilir.
CD-ROM Kapagini acmak icin;
mciSendString('Set cdaudio door open wait', nil, 0, handle);
CD-ROM Kapagini kapatmak icin;
mciSendString('Set cdaudio door closed wait', nil, 0, handle);