用API函数控制光驱的开关

　　使用API函数CDdoor 来控制光驱门的开和关程序十分简单，由于 CDdoor 函数自身包含了对异常错误的处理机制，因此这个程序的通用性很高，你可以把这段代码移植到你的程序中，实现某些多媒体播放器所常用的开关光驱的功能。

以下是源代码：

　　-------------------------------------------
　　 利用API函数控制光驱的开和关
　　-------------------------------------------
　　程序说明：
　　 本例使用API函数 CDdoor 来控制光驱门的开和关
　　程序十分简单，由于 CDdoor 函数自身包含了对异常
　　错误的处理机制，因此这个程序的通用性很高，你可
　　以把这段代码移植到你的程序中，实现某些多媒体播
　　放器所常用的开关光驱的功能。
　　-------------------------------------------

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

　　CDOpen用来标示光驱开与关的状态

Dim CDOpen As Boolean

Private Sub Command1_Click()
On Error Resume Next

　　如果关闭则打开，并且按钮做相应变化

If CDOpen = False Then
Call CDdoor("set CDAudio door open", 0, 0, 0)
CDOpen = True
Command1.Caption = "点击关闭光驱"
Else

　　否则关闭

Call CDdoor("set CDAudio door closed", 0, 0, 0)
CDOpen = False
Command1.Caption = "点击打开光驱"
End If
End Sub

Private Sub Form_Load()
CDOpen = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub

　　CDdoor函数是安装WINDOWS时所自带的winmm.dll文件中包含的函数，我们只须先加入如下的声明后就能引用这个API函数：

　　Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
　　　( _
　　　ByVal lpstrCommand As String, _ 　　　　　　String，这是控制命令参数
　　　ByVal lpstrReturnString As String, _　　　　String，这是返回值
　　　ByVal uReturnLength As Long, _　　　　　　　Long，返回值长度参数
　　　ByVal hwndCallback As Long _
　　　) As Long

　　引用的语法是：Call CDdoor("set CDAudio door closed", 0, 0, 0)　　用以关闭光驱门 　　　　　　　　　Call CDdoor("set CDAudio door open", 0, 0, 0)　　　用以打开光驱门

　　程序中使用了一个布尔型变量来标示当前光驱门开与关的状态。

　　如果配合检测光驱是否存在的函数一起使用，此程序的通用性会更高。而关于检测驱动器信息的函数请参看 GetDriveType，GetLogicalDrives的用法。