فتح واغلاق الباب الخاص بمحرك السي دي من خلال الفيجوال بيسك

منقول من منتدى فيجول بيسك

..................................

يقوم هذا الكود بفتح واغلاق باب محرك السي دي وهي الخاصية المتاحة من خلال ويندوز من خلال دالة 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

وبالتوفيق ...................لا تنسى ذكر الله