uses kısmına MMSystem unitini ekleyin. mciSendString('Set cdaudio door open wait', nil, 0, handle); //aç mciSendString('Set cdaudio door closed wait', nil, 0, handle); //kapa