说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

打开和关闭CD-ROM 驱动器 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
打开和关闭CD-ROM 驱动器 -VB资料
声明:
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)

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘