//Affecte le lecteur au pilote MCI

sCommande est une chaîne = "open D:\ type cdaudio alias cdaudio"

MCIExécute(sCommande)

//Code pour ouvrir le lecteur de CD-ROM

MCIExécute("Set cdaudio door open wait")

//Code pour fermer le lecteur de CD-ROM

MCIExécute("Set cdaudio door closed wait")