如何在程序控制器下打开关闭光驱的

当你的程序需要使用光驱中光盘驱动时，在程序控制器下有一个很好的办法打开关闭光驱。使用这个技术依赖的技巧来自于mciSendString函数，这个函数来自于Windows API。它提供了一个普通的假想接口到Windows的多媒体的能力。下面是它的定义：

本届科博会还以京津冀传统产业升级为背景 Declare Function mciSendString Lib \"l\" Alias \"mciSendStringA\" _

(ByVal lpCommandString As String, ByVal lpReturnString As String, _

ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

由于光驱被认为是多媒体设备，你可以使用API函数来控制它。第一个参数告诉设备你想要做什么。比如，你想要用\"set CDAudio door open\"来打开光驱，你可以这样做：

retval = mciSendString(\"set CDAudio door open\", \"\", 0, 0)

你可以注意到第二和第四个参数在这种情况下并没有使用到它们不是被设置成空字符串就是将值设为0。同样地，函数的返回值将被忽视。连同上面的函数定义一起，你可以将在一个代码模块中放置这两个进程。这个模块在你的程序中提供光驱开门的控制。

Public Sub OpenCDDoor()

Dim retval As Long

retval = mciSendString(\"set CDAudio door open\", \"\", 0, 0)

End Sub

Public Sub CloseCDDoor()

Dim retval As Long

retval = mciSendString(\"set CDAudio door closed\", \"\", 0, 0)

End Sub

当光驱打开的时候注意调用OpenCDDoor，当光驱关闭的时候调用CloseCDDoor都没有任何影响。

本文作者： Peter Aitken 自从VB 1.0发布开始就进行编程工作。他编写了大量关于VB和其他计算机相关的书籍和杂志。

：李宁

欢迎评论或投稿