Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› API › 查看内容

在程序中如何打开和关闭光驱门？

1970-1-1 08:00| 发布者: 共享| 查看: 2327| 评论: 0

'API函数声明如下:
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

'调用时的代码如下
Dim Ret As Long
Dim RetStr As String
'打开光驱门
Ret = mciSendString("set CDAudio door open", RetStr, 0, 0)
'关闭光驱门
Ret = mciSendString("set CDAudio door closed", RetStr, 0, 0)

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

在程序中如何打开和关闭光驱门？

最新评论

相关分类