Вроде спрашивал уже.....про сидиром год назад....

[Elmer]

...да вот посеял код..
Вообщем вопрос простецкий, - програмно открыть сидиром....
Но тока вот этот код не пашет (или пашет но тока на Вин9Х)

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

Private 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()
Call mciSendString("CD-ROM îòêðûò", 0&, 0&, 0&)
End Sub


Кто посоветует что нить еще?
Тока плиз ответ на мыло... Elmer@pike.pike.ru

[MEMBER]

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

Private 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()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
End Sub
Private Sub Command2_Click()
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
End Sub


И в мыло.

[Elmer]

спасибо!
Я не понял на разных языковых версиях винды разные команды или как? или он будет в любой винде открываться?

[MEMBER]

Проверял на 2000 и 98. Работает. А код приведённый вами - вообще пшёнка. Что это за команда:
Call mciSendString("CD-ROM открыт", 0&, 0&, 0&)
Call mciSendString("CD-ROM закрыт", 0&, 0&, 0&)
Бред.

[Elmer]

http://www.vbnet.ru/faq/showtopic.asp?id=223
Взял код от туда!