| Вопрос: Как открыть поддон дисковода? | Добавлено: 14.07.07 09:56 |
Автор вопроса:  mechanical_man
|
| Как можно программно открыть поддон дисковода и закрыть его? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 14.07.07 15:36 |
oO угага открыть чего чего? Дисковода?! Или аффтар сидиром с дисководом путает? Если нет, и нужно открыть дисковод - на дотнете можно наверное сразу написать чтобы комп нафиг открывала!  )))
|
||
|
Номер ответа: 2 Автор ответа: Alexei ICQ: 351674656 Вопросов: 0 Ответов: 18 |
Профиль | | #2 | Добавлено: 14.07.07 16:10 |
|
ну вообще CD-ROM и FDD оба являются дисководами, CD-ROM оптических, а FDD гибких магнитных дисков
а вот ПОДДОН - ето круто! я считал что он лотком называется |
||
|
Номер ответа: 3 Автор ответа: Alexandr.R Вопросов: 9 Ответов: 115 |
Web-сайт: Профиль | | #3 | Добавлено: 14.07.07 17:08 |
|
Зачем так к человеку придираться, суть вопроса и так понятна
http://www.google.com/search?client=opera&rls=en&q=vb.net+eject+cd&sourceid=opera&ie=utf-8&oe=utf-8 |
||
|
Номер ответа: 4 Автор ответа: AlexeiICQ: 351674656 Вопросов: 0 Ответов: 18 |
Профиль | | #4 | Добавлено: 14.07.07 21:05 |
|
так и я ж про то...
мне тож интересен этот вопрос. |
||
|
Номер ответа: 5 Автор ответа: AlexeiICQ: 351674656 Вопросов: 0 Ответов: 18 |
Профиль | | #5 | Добавлено: 15.07.07 11:56 |
|
вопрос освещался на vbnet.ru, можно посмотреть в разделе "Рассылка" 1-50 выпуски (12). совершенно случайно сегодня наткнулся, там еще есть интересные вещи. http://www.vbnet.ru/subscribe/zip/VBNet1-50.chm
------------------------------ Открытие и закрытие лотка CD-ROM Для этого создайте на форме 2 кнопки и вставьте код: Option Explicit Public Declare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" _ (ByVal lpstrCommand As String, _ ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, _ ByVal hwndCallback As Long) As Long Private Sub Command1_Click() 'Открыть дверцу CD-Rom: Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0& 
End Sub Private Sub Command2_Click() 'Закрыть дверцу CD-Rom: Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub |
||
|
Номер ответа: 6 Автор ответа: SyavXВопросов: 25 Ответов: 149 |
Профиль | | #6 | Добавлено: 15.07.07 15:42 |
|
Вот более полный ответ. Потому как приведенный выше код позволяет манипулировать только "первычным" приводом (если их в системе несколько).
strDrive = "E" 'CD-drive letter
lngRetValue = mciSendString("set CDAudio!" & strDrive & ": door closed wait", 0, 0, 0) lngRetValue = mciSendString("set CDAudio!" & strDrive & ": door open wait", 0, 0, 0) З.Ы. Правда это пример для классического ВБ (VB6.0) |
||
Страница: 1 |