*API函数声明如下rivate 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注释：调用时的代码如下Dim Ret As LongDim RetStr As String注释：打开光驱门Ret = mciSendString("set CDAudio door open", RetStr, 0, 0)注释：关闭光驱门Ret = mciSendString("set CDAudio door closed", RetStr, 0, 0)
360网站安全检测平台
QQ好友和群
QQ空间
腾讯微博
腾讯朋友
收藏
分享
淘帖
支持
反对
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
照妖镜
rivate 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注释：调用时的代码如下Dim Ret As LongDim RetStr As String注释：打开光驱门Ret = mciSendString("set CDAudio door open", RetStr, 0, 0)注释：关闭光驱门Ret = mciSendString("set CDAudio door closed", RetStr, 0, 0) 
共 1 个关于本帖的回复 最后回复于 2013-7-2 13:25