Открыть и закрыть CDROM

ОГЛАВЛЕНИЕ    HOME  MAIL

uses MMSystem;

procedure TForm1.Button1Click(Sender: TObject);
begin
  mciSendString('Set cdaudio door open wait',
    nil, 0, Form1.Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  mciSendString('Set cdaudio door closed wait',
    nil, 0, Form1.Handle);
end;