Как открыть DVD-rom

[Kalewa-Uliss]

У меня есть код который открывает СD-rom.А как DVD?

[Roof]

подключи модуль MMSystem в разделе Uses.
кидай на форму две кнопки и создавай события OnClick для каждой:

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

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


у меня стоит CD/DVD-RW дисковод и этот код прекрасно работает.

[Simply-Art]

http://pblog.ru/?p=19#more-19 какая разница, DVD, CD этот код даже виртуалы открывает, лично у меня. Не знаю какие у вас проблемы могли возникнуть?!?