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
Public Sub OpenCDDriveDoor()
Try
Call mciSendString("Set CDAudio Door Open", 0, 0, 0)
Catch ex As Exception
End Try
End Sub
Please SUBSCRIBE to get new articles directly into your Email inbox!
Public Sub OpenCDDriveDoor()
Try
Call mciSendString("Set CDAudio Door Open", 0, 0, 0)
Catch ex As Exception
End Try
End Sub
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق