怎样用代码实现打开关闭计算机的光驱?

Question

打开关闭计算机的光驱怎样用代码实现？

Answer 1

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 LongPrivate Sub Command1_Click()
'以下是打开CD -ROM的过程代码:retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)End SubPrivate Sub Command2_Click()
'关闭CD -ROM用以下代码:retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)End Sub

Answer 2

http://expert.csdn.net/Expert/topic/1475/1475655.xml?temp=.8818933

Answer 3

lihonggen0 最先给出了源程序，深表感谢!dsclub 同样谢谢你!