如何用代码实现弹出光驱

来源：百度知道 编辑：UC知道 时间：2024/06/27 07:42:29
就向光驱伴侣一样的 可以弹出光驱的.
如何用代码编写
什么语言都可以
想了解下是如何弹出的
要在键盘上自定义打开的键呢?

新建工程，添加一个窗体、三个按钮
按钮1：打开光驱。按钮2：关闭光驱。按钮3：退出
代码如下：
Option Explicit
Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim state1 As Boolean

Private Sub Command1_Click()
'打开光驱
state1 = True
Call CDdoor("set CDAudio door open", 0, 0, 0)
End Sub

Private Sub Command2_Click()
'关闭光驱
state1 = False
Call CDdoor("set CDAudio door closed", 0, 0, 0)
End Sub

Private Sub Command3_Click()
End
End Sub
参考资料：《VB编程200例》实例光盘

CDDoor(); Api函数

给该键定义API过程