谁能给我贴段控制光驱弹出/关闭的代码来？急用，谢谢！

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 Long Private Sub Command1_Click() 　 'Open CD drive door 
　 retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0) 
　 'Close CD drive door 
　 retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0) End Sub 

Answer 2

打开／关闭光驱门 声明 
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 
代码 
Sub OpenCDDoor() 
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0& 
End Sub Sub CloseCDDoor() 
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0& 
End Sub 

Answer 3

57、如何弹出和关闭光驱托盘？Option Explicit
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()
mciExecute "set cdaudio door open" '弹出光驱
Label2.Caption = "弹 出"
End SubPrivate Sub Command2_Click()
Label2.Caption = "关 闭"
mciExecute "set cdaudio door closed" '合上光驱
Unload Me
End
End Sub