用VB6.0打开和关闭光驱

在VB6.0的开发环境中，添加一个按钮，编写如下代码：

Option Explicit
'说明：CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
( ByVal lpstrCommand As String,ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long ) As Long

Dim CDOpen As Boolean

Private Sub cmdControl_Click()
On Error Resume Next

'如果关闭则打开，并且按钮做相应变化 
If CDOpen = False Then
Call CDdoor("打开", 0, 0, 0)
CDOpen = True
cmdControl.Caption = "点击关闭光驱"
Else
'否则关闭
Call CDdoor("关闭", 0, 0, 0)
CDOpen = False
cmdControl.Caption = "点击打开光驱"
End If
End Sub

Private Sub Form_Load()
CDOpen = False
Call CDdoor("关闭光驱", 0, 0, 0)
End Sub

 

//注：F5运行，就可以控制光驱了。本示例在Win2003,VB6.0环境下运行提通过。