Alcune volte nei nostri programmi ci farebbe comodo aggiungere una opzione mirata all'apertura ed alla chiusura del lettore cd, senza dover utilizzare il tasto della tastiera (sempre se c'è) o l'apposito tasto presente nel lettore. In questo caso possiamo utilizzare uno script delphi per l'apertura ed uno per la chiusura.
Qui sotto vi mettiamo a disposizione le righe di testo da inserire:

mciSendString('Set cdaudio door open wait', nil, 0, handle);

Come è facile intuire dal codice, questo è quello dedito all'apertura del cd, mentre quello qui sotto viene utilizzato per la chiusura del cd:

mciSendString('Set cdaudio door closed wait', nil, 0, handle);

Come potete vedere c'è, come si poteva immaginare, una sola differenza di comandi nello script, ovvero la prima dentro alle parentesi.
Per il corretto funzionamento dello script non bisogna però assolutamente dimenticarsi dell'inclusione della la unit MMSystem nello Uses. Speriamo che lo script vi sia utile! ;-)