Kod: procedure TForm1. Button1click ; // Bu Açma Kodu begin mciSendString('Set cdaudio door open', Nil,0,0); end; procedure TForm1. Button2click ; // Buda Kapatma begin mciSendString('Set cdaudio door closed', Nil,0,0); end; Not : Kodların çalışması için ; uses satırına "MMSYSTEM" kütüphanesini eklemeyi unutmayın. ! Alıntıdır..

İlk ben verdim. Tarihlere bak.

bunlar gibi yuzlerce kod bugun verdigim kaynak var... bunlar guzel kodlar iste buda linki : http://www.wardom.org/forum/showthread. php?t=91071