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.}