Bir buton oluşturun. Butona çift tıklayıp
mciSendString('Set cdaudio door open',nil,deger,handle); kodunu yazın. deger değişkenini integer=0 olarak atayın.
Başka bir buton daha oluşturun bu kapama butonu olacak onada
mciSendString('Set cdaudio door closed',nil,deger,handle); kodunu yazın. Unit...