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

[majid_p30]

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

[bithiah]

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

[تکنیک برتر]

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

[rasool_bbc]

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

[rasool_bbc]

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

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

[moody]

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

[moody]

ببخشيد

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

[vorojax]

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

[Payman_62]

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

[shamsoft]

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

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