- 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()
- Dim RetVal As Long
- Dim RString As String
- RString = Space$(128)
-
- RetVal = mciSendString("set CDAudio door closed", RString, 128, 0)
-
- End Sub
-
- Private Sub Command2_Click()
- Dim RetVal As Long
- Dim RString As String
- RString = Space$(128)
-
- RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
-
- End Sub
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()
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door closed", RString, 128, 0)
End Sub
Private Sub Command2_Click()
Dim RetVal As Long
Dim RString As String
RString = Space$(128)
RetVal = mciSendString("set CDAudio door open", RString, 128, 0)
End Sub