|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.08.2007, 00:13 | #1 |
Новичок
Джуниор
Регистрация: 07.08.2007
Сообщений: 1
|
Open Close CD-ROM Door
Помогите плиз! Как определить открыта или закрыта дверца CD-ROM'а
Есть вот такой процедура определения, но она у меня не работат правильно, т.е все время показывает , что дверца открыта // procedure TForm1.Button1Click(Sender: TObject); var s: array[0..64] of Char; error: Cardinal; Text: array[0..255] of Char; begin error := mciSendstring('open cdaudio alias geraet', nil, 0, Handle); if error <> 0 then begin mciGetErrorstring(error, @Text, 255); ShowMessage(Text); mciSendstring('close geraet', nil, 0, Handle); Exit; end; error := mciSendstring('status geraet mode', @s, SizeOf(s), Handle); if error <> 0 then begin mciGetErrorstring(error, @Text, 255); ShowMessage(Text); mciSendstring('close geraet', nil, 0, Handle); Exit; end; mciSendstring('close geraet', nil, 0, Handle); ShowMessage('Message: ' + s); end; |
07.08.2007, 09:03 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
будет работать только если в дисководе есть диск
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Иконки New, Open, Save | amelie | Win Api | 2 | 07.08.2008 17:20 |
метод Close для ADODataSet вызывает ошибку 'BOF или EOF имеет ...' (mdac 6.0) | jane | БД в Delphi | 1 | 16.07.2008 07:34 |
Url open | Pavel_aress | Общие вопросы Delphi | 12 | 01.08.2007 20:40 |
Олимпиада по программированию kpi-open | Morion | Свободное общение | 4 | 20.06.2007 13:42 |