Открытие CD-ROM-ов

[MICHEY]

Хочу написать программу для открытия CD-ROM. Но получается открыть только один - главный. Как определить число оптических приводов в системе и исходя из этого сделать выбор на открытие\закрытие того или иного привода.

[d3drm]

а есть исходник открытия главного рома? выложи...

[skord]

Короче, в Project\References подключи FSO и Windows\System32\wmp.dll (у тебя должен стоять Windows Media Player иначе не получится)

Код:

Dim fso As New FileSystemObject'подключаем FSO
Dim mp As New WindowsMediaPlayer'подключаем Media Player
Dim x, drive

Private Sub Command1_Click()
x = -1
For Each drive In fso.Drives'перебирем устрйства
If drive.DriveType = 4 Then'Если сидюк
x = x + 1
mp.cdromCollection.Item(x).eject'извлекаем
End If
Next
End Sub




Этот код открывает ВСЕ сд-ромы. Ты можешь подобрать номер своих и извлекать каждай по отдельности.

[v-adix]

Короче, в Project\References подключи FSO и Windows\System32\wmp.dll (у тебя должен стоять Windows Media Player иначе не получится)

Код:

Dim fso As New FileSystemObject'подключаем FSO
Dim mp As New WindowsMediaPlayer'подключаем Media Player
Dim x, drive

Private Sub Command1_Click()
x = -1
For Each drive In fso.Drives'перебирем устрйства
If drive.DriveType = 4 Then'Если сидюк
x = x + 1
mp.cdromCollection.Item(x).eject'извлекаем
End If
Next
End Sub


Этот код открывает ВСЕ сд-ромы. Ты можешь подобрать номер своих и извлекать каждай по отдельности.

на форуме был какой-то пример, где при вызове соотв. api функции можно было открывать сдром по букве диска (напр. D или E).
просто с программой надо будет таскать библиотеки WMP (а она не одна!) и scrrun.dll.

[xolod]

Вот сей код я использую в своем звуковом двужке, я его немножко для тебя оптимизировал, там все ясно.

[Zer]

Код: Выделить всё

Private 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
Dim Status As Integer


Использование:

Код: Выделить всё

Status = mciSendString("Set CDAudio Door Open Wait", 0&, 0, 0)
Status = mciSendString("Set CDAudio Door Closed Wait", 0&, 0, 0)


[Amed]

Этот код открывает непонятно какой cd-rom. Не указанный, а установленный по умолчанию.