|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.07.2007, 21:46 | #1 |
Новичок
Джуниор
Регистрация: 15.07.2007
Сообщений: 2
|
Как открыть DVD-rom
У меня есть код который открывает СD-rom.А как DVD?
|
15.07.2007, 22:21 | #2 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
подключи модуль 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 дисковод и этот код прекрасно работает.
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
16.07.2007, 07:24 | #3 |
Программист и
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,265
|
http://pblog.ru/?p=19#more-19 какая разница, DVD, CD этот код даже виртуалы открывает, лично у меня. Не знаю какие у вас проблемы могли возникнуть?!?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
открыть паскалем txt | Lexus_RX_300 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 14.02.2008 06:29 |
открыть с помощью | tarasov | Win Api | 3 | 13.12.2007 19:00 |
Как открыть .doc/.htm в Richedit ?? | UnD)eaD)Snake | Компоненты Delphi | 3 | 27.08.2007 19:42 |
Как открыть CD-ROM програмно? | bagdat | Win Api | 3 | 02.07.2007 14:57 |