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