发表评论(0)作者：, 平台：, 阅读：10407, 日期：2000-03-12

打开／关闭光驱门



声明

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

代码

Sub OpenCDDoor()

mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&

End Sub


Sub CloseCDDoor()

mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&

End Sub