VBNet - Форум

Вопрос: cd-rom Добавлено: 30.03.03 03:01

Автор вопроса: ZoomerSD | ICQ: 148640473

ктонибудь подскажите как программно выполнить открытие и закрытие сидишника? а-то код представленный на сайте почему-то неработает
Ответить

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

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

Zeus

ICQ: 161801353

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

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

Добавлено: 30.03.03 14:08

В модуле:

Public Const MCI_OPEN = &H803
Public Const MCI_OPEN_TYPE = &H2000&
Public Const MCI_OPEN_SHAREABLE = &H100&
Public Const MCI_SET = &H80D
Public Const MCI_SET_DOOR_OPEN = &H100&
Public Const MCI_SET_DOOR_CLOSED = &H200&
Public Const MCI_CLOSE = &H804
Public Type MCI_OPEN_PARMS
    dwCallback As Long
    wDeviceID As Long
    lpstrDeviceType As String
    lpstrElementName As String
    lpstrAlias As String
End Type
Public 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

Public Sub OpenCD()
    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
Public Sub CloseCD()
    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

Ответить

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

Xeon

Вопросов: 2
Ответов: 8

Профиль | | #2

Добавлено: 30.03.03 19:02

Ну, или так...

В 'Declarations' формы:

Private Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Далее в коде:

Для открытия:

Public Sub cdrom_open()

Dim retval As Long

Dim returnstring As Long

retval = mciSendString("set CDAudio door open", _

returnstring, 127, 0)

End Sub

Для закрытия:

Public Sub cdrom_close()

Dim retval As Long

Dim returnstring As Long

retval = mciSendString("set CDAudio door closed", _

returnstring, 127, 0)

End Sub

Ответить

Страница: 1 |