VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 打开和关闭CD-ROM 驱动器
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:10149, 日期:2001-12-24
打开和关闭CD-ROM 驱动器
声明:
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
使用:
注释:打开
retvalue = mcisendstring("set CDAudio door open", returnstring, 127, 0)
注释:关闭
retvalue = mcisendstring("set CDAudio door closed", returnstring, 127, 0)