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()
'以下是打开CD -ROM的过程代码:
Dim ret As Long
Dim returnstring As String
ret = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub Command2_Click()
'关闭CD -ROM用以下代码:
Dim ret As Long
Dim returnstring As String
ret = mciSendString("set CDAudio door closed", returnstring, 127, 0)