|
Option Explicit
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 OpenDoor(ByVal Drive As String)
Dim Buffer As String * 255
mciSendString "Open " & Drive & " Type cdaudio Alias cd", _
Buffer, 255, 0
mciSendString "set cd door open", 0&, 0, 0
mciSendString "close cd", 0&, 0, 0
End Sub
Private Sub CloseDoor(ByVal Drive As String)
Dim Buffer As String * 255
mciSendString "Open " & Drive & " Type cdaudio Alias cd", _
Buffer, 255, 0
mciSendString "set cd door closed", 0&, 0, 0
mciSendString "close cd", 0&, 0, 0
End Sub
|
|