Открыть и закрыть CD-ROM в Windows. В uses нужно дабвить MMSystem В таймер пишем:
procedure TForm1.Timer1Timer(Sender: TObject); begin mciSendString('Set cdaudio door open wait', nil, 0, handle); mciSendString('Set cdaudio door closed wait', nil, 0, handle); end; |