[دمعة فرح]

فتح وإغلاق CD-RDOM

الخطوة الأولي
ضع هذا الكود في Module



PHP:

--------------------------------------------------------------------------------


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


--------------------------------------------------------------------------------

الخطوة الثانية
أضف زر أمر Command وليكن اسمه (فتح)
اضف هذا الكود:


PHP:

--------------------------------------------------------------------------------

Private Sub Command1_Click()
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
--------------------------------------------------------------------------------
الخطوة الثالثة
أضف زر أمر Command وليكن اسمه (إغلاق)
اضف هذا الكود:

PHP:
--------------------------------------------------------------------------------
Private Sub Command2_Click()
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

تحياتي

دمعة فرح