فتح وإغلاق السي دي روم Open Close CD-ROM

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يقوم بفتح السي دي روم (مشغل الإسطوانات CD-ROM) وكود آخر يقوم بإغلاقه.

إليكم الكود ويوضع في موديول عادي ، ويعمل على كلا النظامين 32 بت و 64 بت

#If VBA7 Then
    Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As LongPtr) As Long
#Else
    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
#End If

Public Sub OpenCDDriveDoor(ByVal State As Boolean)
    If State = True Then
        Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
    Else
        Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
    End If
End Sub

Sub OpenCD()
    OpenCDDriveDoor (True)
End Sub

Sub CloseCD()
    OpenCDDriveDoor (False)
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء