Author: William Gerbert/strong>

Eject and close CD-Drive

Answer:

These two function calls open and close the CD tray.
Because the command "wait" is included in the command string, the function returns 
after the command has been executed:


1   uses
2     MMSystem;
3   
4   { open the CD tray }
5   mciSendString('Set cdaudio door open wait', nil, 0, 0);
6   
7   { close the CD tray }
8   mciSendString('Set cdaudio door closed wait', nil, 0, 0);