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 LongDim Ret As Long Dim RetStr As String '打开 Ret = mciSendString("set CDAudio door open", RetStr, 0, 0) '关闭 Ret = mciSendString("set CDAudio door closed", RetStr, 0, 0)
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 LongDim Ret As Long
Dim RetStr As String
'打开
Ret = mciSendString("set CDAudio door open", RetStr, 0, 0)
'关闭
Ret = mciSendString("set CDAudio door closed", RetStr, 0, 0)