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

'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)

发布人:共享

分享到：

点击次数：更新时间：2005-08-16 11:46:46 【打印此页】【关闭】

上一条：另类检测联网状态下一条：怎样找到鼠标指针的XY坐标？