KODLARIN CALIŞMASI İCİN uses satırına "MMSYSTEM" kutuphanesini eklemeyi unutmayın procedure TForm1.Button1click(Sender: TObject); // Bu Acma Kodu begin mciSendString('Set cdaudio door open',Nil,0,0); end; procedure TForm1.Button2click(Sender: TObject); // Buda Kapatma begin mciSendString('Set cdaudio door closed',Nil,0,0); end; ii eğlenceler __________________