يه كد براي بيرون آوردن CD Rom

يه كد ميخوام كه وقتي روي يه دكمه كليك كردم عمل Eject رو انجام بده
MeR30

دوست عزیز
یه نمونه کد در آرشیو کدهام داشتم برای باز و بسته کردن CD-Drive. اینجا آپلود کردم براتون:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام دوست عزیز قبل از دادن تایپک لطفا بگردید من یک نمونه قبلا گزاشته ام

مجيد اين ببين
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

فکر کنم این کد بیشتر بدرت بخوره:

Option Explicit

'قسمت 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

'یه دکمه با اسم CMDOPEN
Private Sub CMDOPEN_Click()
mciSendString "set cdaudio door open", 0, 0, 0
End Sub

'یه دکمه با اسم CMDCLOSE
Private Sub CMDCLOSE_Click()
mciSendString "set cdaudio door closed", 0, 0, 0
End Sub

اينم هست:
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

Private Sub cmdOpen_Click()
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub

Private Sub cmdClose_Click()
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub

ببخشيد
:blush:
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

Private Sub cmdOpen_Click()
retvalue = mciSendString("set CDAudio door open", _
returnstring, 127, 0)
End Sub

Private Sub cmdClose_Click()
retvalue = mciSendString("set CDAudio door closed", _
returnstring, 127, 0)
End Sub

اقا بستنشم بگيد

پست هاي بالارو دقيق تر بخون عزبز جواب ميگيري.

بيا اينم كد بسته شدن.آخه چرا فقط سورس رو كپي مي كنيد.يه خورده هم بخونيدش ببينيد چيه :angry: .اين سورس رو آقا رسول نوشته:
Private Sub CMDCLOSE_Click()
mciSendString "set cdaudio door closed", 0, 0, 0
End Sub

البته جنرالش يادت نره

حالا اگه چندتا سي دي رام روي سيستم داشته باشيم آيا كدي هست كه بتونيم مشخص كنيم كدام سي دي رام اجكت بشه ؟
من خودم روي سيستمي كه 2 تا سي دي رام داشت امتحان كردم فقط سي دي رام ديفالت رو اجكت ميكرد

بايد master و slave مشخص شه. هميشه master مياد بيرون.

ولي يادمه يه برنامه داشتم كه هر كدام از سي دي رام ها كه ميخواستي اجكت يا اينجكت ميكرد . اسمشو يادم نيست ولي قطعا اون برنامه هم از يه راهي اين كارو انجام ميداده ديگه . در ضمن اون دستور mciSendString واسه اينجكت جواب نميده