CD

[NIC]

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

[Sasha_karasov]

Это уже было, глянь в поиске

[NIC]

Это уже было, глянь в поиске

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

[Мамонт]

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

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:\ пиши букву своего сидюка!
Эх.....