باز و بستن سی دی رام

[www.pc3enter.tk]

سلام دوستان عزیز
می خواستم بدانم کسی کد یا سورسی از باز و بستن سی دی رام دارد
با تشکر

[farzad93]

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 command1_Click()
Dim LRet As Long
LRet = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub command2_Click()
Dim LRet As Long
LRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

[www.pc3enter.tk]

ممنون
حالا اگر بخواهیم وقتی در سی رام بسته شد برنامه ی مورد نظر را اجرا کنید چه باید بکنم
مثلا رنگ صفحه را قرمز کنه
باتشکر

[Slytherin]

خب کد مورد نظرت رو در ادامه کد بسته شدن در CD-Rom بنویس دیگه:چشمک:

[www.pc3enter.tk]

یعنی این جوری



Dim LRet As Long
LRet = mciSendString("set CDAudio door closed", returnstring, 127, 0),BackColor = vbRed
End Sub

[Slytherin]

خیر به این شکل:

Dim LRet As Long
LRet = mciSendString("set CDAudio door closed", returnstring, 127, 0)
Me.BackColor = vbRed
End Sub