Mega Code Archive

 

Categories / Delphi / Multimedia

 

Open and close the CD ROM drive

Title: Open and close the CD-ROM drive Question: How can I easily open and close the CD-ROM drive? Answer: uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin { open CD-ROM drive; returns 0 if successfull } mciSendString('set cdaudio door open wait', nil, 0, handle); { close the CD-ROM drive; returns 0 if successfull } mciSendString('set cdaudio door closed wait', nil, 0, handle); end;