A CD meghajtó ajtaját az alábbi utasításokkal lehet Delphi programból kinyitni illetve bezárni:
(pl. egy gomb lenyomásával)

uses MMSystem;

...

// kinyitja a CD ajtaját
mciSendString('Set cdaudio door open wait', nil, 0, handle);

// bezárja a CD ajtaját
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
Ennyi az egész...