| Вопрос: Управление декой приводов | Добавлено: 26.04.08 20:46 |
Автор вопроса:  supaplex777 | Web-сайт: dudkino-net.tut.su | ICQ: 397711309 |
| Может быть, кто-то знает, как открывается и закрывается дверца дисковода по его букве (я имею в виду программно :) ). Есть, конечно программа Exit CD, но она только ОТКРЫВАЕТ дисковод НЕ по его букве. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #1 | Добавлено: 26.04.08 21:48 |
Очевидно: нужно узнать какое устройство соответствует заданной букве 
|
||
|
Номер ответа: 2 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #2 | Добавлено: 27.04.08 02:09 |
|
Ещё есть програ NirCMDc, которая может очень многое кажется nirsoft.mirrorz.com если нет то гугл нирцмд
|
||
|
Номер ответа: 3 Автор ответа: s12Вопросов: 24 Ответов: 363 |
Профиль | | #3 | Добавлено: 27.04.08 03:36 |
|
Вопросы:
1.Как дисковод связан со своей буквой? 2.Если дисковод открывается не "по букве", тогда по чему? PS: ИМХО ты недооценил Exit CD.
|
||
|
Номер ответа: 4 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #4 | Добавлено: 27.04.08 21:38 |
|
кааароч. Вот тебе ссылка на Flamed Lib http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=62011&lngWId=1 Там всё на vb6 и уйма фич.
Посмотри демку Drive Monitor. Что интересно у меня с Плекстором правильно работать не захотела То есть работала, но всегда считала что дисковод закрыт( Приходилось выполнять код закрытия насильно
Раньше был NEC, вроде работало верно.. |
||
|
Номер ответа: 5 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #5 | Добавлено: 28.04.08 10:40 |
|
вариант через mci
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias _ "mciSendStringA" (ByVal lpstrCommand As String, ByVal _ lpstrReturnString As Long, ByVal uReturnLength As _ Long, ByVal hwndCallback As Long) As Long Dim vDrive As String Dim vAlias As String Private Sub Command1_Click() ' Открыть vDrive = "w:/" vAlias = "vv" & vDrive Call mciSendString("Open " & vDrive & ": Alias " & vAlias & " Type CDAudio ", 0, 0, 0) Call mciSendString("Set " & vAlias & " Door Open", 0, 0, 0) End Sub Private Sub Command2_Click() ' Закрыть vDrive = "w:/" vAlias = "vv" & vDrive Call mciSendString("Open " & vDrive & ": Alias " & vAlias & " Type CDAudio ", 0, 0, 0) Call mciSendString("Set " & vAlias & " Door Closed", 0, 0, 0) End Sub |
||
Страница: 1 |