Uses ===> Systempuis met deux bouton sur ta fiche
mciSendString('Set cdaudio door open wait', nil, 0, GetDesktopWindow); showmessage('Le Lecteur est ouvert')
mciSendString('Set cdaudio door closed wait', nil, 0, 0); showmessage('Le lecteur est fermé')