كود بفتح واغلاق باب محرك السي دي

[عنـ الشوق ـاد]

كود بفتح واغلاق باب محرك السي دي

يقوم هذا الكود بفتح واغلاق باب محرك السي دي وهي الخاصية المتاحة من خلال ويندوز من خلال دالة API اسمها mciSendString موجودة في winmm.dll ، لذا قم بكتابة هذا الكود في موديول أو في General :

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 EjectCD()
Call mciSendString("set CDAudio Door Open Wait", 0&, 0&, 0&)
bopen = True
End Sub

Public Sub CloseCD()
Call mciSendString("set CDAudio Door Closed Wait", 0&, 0&, 0&)
bopen = False
End Sub

أخيراً زري أمر للفتح والإغلاق .

Private Sub Command1_Click()
EjectCD
End Sub
Private Sub Command2_Click()
CloseCD
End Sub