PDA

نسخه کامل مشاهده نسخه کامل : يه كد براي بيرون آوردن CD Rom



majid_p30
21-12-2005, 12:15
يه كد ميخوام كه وقتي روي يه دكمه كليك كردم عمل Eject رو انجام بده
MeR30

bithiah
21-12-2005, 12:42
دوست عزیز
یه نمونه کد در آرشیو کدهام داشتم برای باز و بسته کردن CD-Drive. اینجا آپلود کردم براتون:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

تکنیک برتر
23-12-2005, 02:57
سلام دوست عزیز قبل از دادن تایپک لطفا بگردید من یک نمونه قبلا گزاشته ام

rasool_bbc
24-12-2005, 16:01
مجيد اين ببين
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

rasool_bbc
24-12-2005, 16:03
فکر کنم این کد بیشتر بدرت بخوره:

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
25-12-2005, 07:52
اينم هست:
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
25-12-2005, 07:53
ببخشيد
: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

vorojax
12-03-2006, 22:45
اقا بستنشم بگيد

Payman_62
12-03-2006, 23:46
پست هاي بالارو دقيق تر بخون عزبز جواب ميگيري.

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

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

Mostafa1024
13-03-2006, 18:26
حالا اگه چندتا سي دي رام روي سيستم داشته باشيم آيا كدي هست كه بتونيم مشخص كنيم كدام سي دي رام اجكت بشه ؟
من خودم روي سيستمي كه 2 تا سي دي رام داشت امتحان كردم فقط سي دي رام ديفالت رو اجكت ميكرد

Payman_62
13-03-2006, 23:40
بايد master و slave مشخص شه. هميشه master مياد بيرون.

Mostafa1024
14-03-2006, 15:28
ولي يادمه يه برنامه داشتم كه هر كدام از سي دي رام ها كه ميخواستي اجكت يا اينجكت ميكرد . اسمشو يادم نيست ولي قطعا اون برنامه هم از يه راهي اين كارو انجام ميداده ديگه . در ضمن اون دستور mciSendString واسه اينجكت جواب نميده