CD

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
NIC
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 175
Зарегистрирован: 26.04.2005 (Вт) 4:50

CD

Сообщение NIC » 15.05.2005 (Вс) 5:52

Подскажите кто знает. Как с помощью mci send command открывыть и закрывать второй CD. С Ув.Колян. :roll:

Sasha_karasov
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 436
Зарегистрирован: 03.03.2005 (Чт) 19:38
Откуда: ua.dp

Сообщение Sasha_karasov » 15.05.2005 (Вс) 6:53

Это уже было, глянь в поиске
Удачи!
С уважением, Алексадр.

NIC
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 175
Зарегистрирован: 26.04.2005 (Вт) 4:50

Сообщение NIC » 15.05.2005 (Вс) 7:10

Sasha_karasov писал(а):Это уже было, глянь в поиске

Но ведь в DEPHI как то его и закрывают??? :?:

Мамонт
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 479
Зарегистрирован: 21.02.2005 (Пн) 16:48
Откуда: Ленинград

Сообщение Мамонт » 15.05.2005 (Вс) 7:53

Код: Выделить всё
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 OpenCloseDoor(strDriveLetter As String, Optional blnDoOpen As Boolean = True)
Dim AliasName$, strOpenClose$
strOpenClose = IIf(blnDoOpen, "Open", "Closed")
AliasName = "Laufwerk" & strDriveLetter
mciSendString "Open " & strDriveLetter & ": Alias " & AliasName & " Type CDAudio", 0, 0, 0
mciSendString "Set " & AliasName & " Door " & strOpenClose, 0, 0, 0
End Sub



Применение:
Private Sub Command1_Click()
    OpenCloseDoor "d:\" 'Открываем
End Sub

Private Sub Command2_Click()
    OpenCloseDoor "d:\", False 'Закрываем
End Sub


Вот!! Просто вместо D:\ пиши букву своего сидюка!
Эх.....


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 135

    TopList