Open & Close CD-drive
{To OPEN the CD-ROM:}
mciSendString
('Set cdaudio door open wait', nil, 0, handle);
{To CLOSE the CD-ROM:}
mciSendString
('Set cdaudio door closed wait', nil, 0, handle);
{Remember to include the MMSystem
unit in your uses clause.}