För att öppna cd-romen skriver du:
mciSendString('Set cdaudio door open wait', nil, 0, Handle);

För att stänga cd-romen skriver du:
mciSendString('Set cdaudio door closed wait', nil, 0, Handle);