VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 打开/关闭光驱门
发表评论(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