VBNet - Форум - Работа с CD/DVD Rom

Вопрос: Работа с CD/DVD Rom Добавлено: 04.12.02 19:25

Автор вопроса: Rebel | Web-сайт: rebel.bos.ru

Интерисуют следующие вещи:

1. как определить тип привода CD/DVD

2. как определить открыт/закрыт язык (морда)

3. как открыть закрыть привод без mciSendString(...)

4. как получить информацию о диске (как в nero: publisher, data preparer и тд)

5. как узнать производителя болванки

заранее спасибо всем откликнувшимся =))))

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Rebel

Вопросов: 32
Ответов: 50

Web-сайт: rebel.bos.ru
Профиль | | #1

Добавлено: 04.12.02 19:50

Да и еще, четь не забыл:

- как узнать информацию о CD/DVD-приводе (модель, производитьель, параметры, тип (R/RW) и тд)

- и как это определить зная только букву диска

Ответить

Номер ответа: 2
Автор ответа:

Zeus

ICQ: 161801353

Вопросов: 63
Ответов: 220

Web-сайт: apirussia.by.ru
Профиль | | #2

Добавлено: 04.12.02 21:24

Типа это должно открывать сидюк(но в NT может и не работать...)

Private Const MCI_OPEN = &H803

Private Const MCI_OPEN_TYPE = &H2000&

Private Const MCI_OPEN_SHAREABLE = &H100&

Private Const MCI_SET = &H80D

Private Const MCI_SET_DOOR_OPEN = &H100&

Private Const MCI_SET_DOOR_CLOSED = &H200&

Private Const MCI_CLOSE = &H804

Private Type MCI_OPEN_PARMS

dwCallback As Long

wDeviceID As Long

lpstrDeviceType As String

lpstrElementName As String

lpstrAlias As String

End Type

Private Declare Function mciSendCommand Lib "winmm.dll" Alias "mciSendCommandA" (ByVal wDeviceID As Long, ByVal uMessage As Long, ByVal dwParam1 As Long, ByRef dwParam2 As Any) As Long

Dim openParams As MCI_OPEN_PARMS

Sub Open()

Dim lRet As Long

openParams.wDeviceID = 0

openParams.lpstrDeviceType = "cdaudio"

lRet = mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE Or MCI_OPEN_SHAREABLE, openParams)

lRet = mciSendCommand(openParams.wDeviceID, MCI_SET, MCI_SET_DOOR_OPEN, ByVal 0&)

mciSendCommand openParams.wDeviceID, MCI_CLOSE, 0, ByVal 0&

End Sub

Sub Close()

Dim lRet As Long

openParams.wDeviceID = 0

openParams.lpstrDeviceType = "cdaudio"

lRet = mciSendCommand(0, MCI_OPEN, MCI_OPEN_TYPE Or MCI_OPEN_SHAREABLE, openParams)

lRet = mciSendCommand(openParams.wDeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, ByVal 0&)

mciSendCommand openParams.wDeviceID, MCI_CLOSE, 0, ByVal 0&

End Sub

Ответить

Номер ответа: 3
Автор ответа:

Rebel

Вопросов: 32
Ответов: 50

Web-сайт: rebel.bos.ru
Профиль | | #3

Добавлено: 05.12.02 21:51

Ето все здорово, а с остальным-то че делать??????

Оно нужнее чем открывание морды.......

Ответить

Страница: 1 |