Конференция VBStreets

**X-BOND** » 11.12.2003 (Чт) 14:03

Вот такой элементарный вопрос.
Мне надо сделать прогу, котрая содержит всего одну кнопочку. Нажал - CD-ROM открылся, еще раз нажал - закрылся.
Подозреваю, что надо юзать mciSendString или mciSendCommand но не знаю какие параметры передавать.
(Как открывать/закрывать я знаю)
Спасибо за ответы.

**Boris_BGB** » 11.12.2003 (Чт) 15:30

Я такую уже делал. Но я не использовал апи, чтоб узнать открыт ли CD-rom. Просто когда нажимаешь открыть, то переменная Boolean принимает значение True/False.
Простая логика. Но она не эффективна, если сидюк изначально открыт.

**X-BOND** » 11.12.2003 (Чт) 16:08

Вот нашел ссылочку http://www25.brinkster.com/msvbasic/?p=vbmci&s=vb
На ее основе написал:
MsgBox mciExecute("Capability CDAudio Can Eject")
Но в любом случае пишет 1
В чем проблема?

**RayShade** » 11.12.2003 (Чт) 17:01

Наверное потому, что как следует из навзания проперти, она всего лишь показывает, что дверца может быть в принципе открыта. :lol:

**X-BOND** » 11.12.2003 (Чт) 17:09

Да, точно, уже допер.

Но как, %;№%, все таки узнать статус устройства?
Может вообще нужна другая функция?

**neprden** » 11.12.2003 (Чт) 17:56

Извиняюсь что вклиниваюсь но у меня проблема еще шире
у меня два cd--ка на слейве не подскажите как их открывать закрывать подозреваю что что то передавать всетаки mciSendCommand
А насчет статуса - лазил по дельфам по модулю winmm показалось даже что чето нашел

**Boris_BGB** » 11.12.2003 (Чт) 18:32

Посмотри по форуму. Воспользуйся поиском. Это уже было.

**GAGArin** » 11.12.2003 (Чт) 21:08

Воспользуйся поиском.

А ты им пробовал пользоваться :twisted:

Думаю нет, не советовал бы.
Наш поиск-штука хитрая, и очень капризная

Есть более эффективный способ, облазить все вручную

**Boris_BGB** » 12.12.2003 (Пт) 12:57

Ну, раз не работает...

Открыть - закрыть CD-Rom

В модуль(!):

Код: Выделить всё: Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'не в модуль: Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0, 0)' - ЗАКРЫТЬ Call mciSendString("Set CDAudio Door Open Wait", 0&, 0, 0)' - Открыть

**X-BOND** » 12.12.2003 (Пт) 13:56

Ну-ну, оправдываешь свое звание :lol:

Меня интересует статус устройства, а товарища neprden, насколько я понял, открытие/закрытие конкретного из двух CD.
Кстати, посмотреть можно тут http://bbs.vbstreets.ru/viewtopic.php?t=3428&

**Boris_BGB** » 12.12.2003 (Пт) 14:58

Ну-ну, оправдываешь свое звание

Ничего, энтузиасты тоже нужны! :wink:

Меня интересует статус устройства

Да, и я тебе предложил простую логику.

а товарища neprden, насколько я понял, открытие/закрытие конкретного из двух CD.

А может у него все два открылись!

Кстати, посмотреть можно тут http://bbs.vbstreets.ru/viewtopic.php?t=3428&

А вот это уже интересно! Я так и знал что там есть какая-то привязка!

Конференция VBStreets

Как узнать положение дверцы CD-ROM

Как узнать положение дверцы CD-ROM

Как узнать положение дверцы CD-ROM

Кто сейчас на конференции