یکی جواب بده

[mr_esmaily]

چگونه می توان در حالی که هم سی دی رام و هم سیدی رایتر بر روی دستگاه نصب است درب (هر کدام) را جدا گانه باز وبسته کرد؟
با تشکر 8)

[S.Azish]

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

Public Function openCD(ByVal dRv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & dRv
retval = -1 'we need to set retval to anything other then 0
retval = mciSendString("open " & dRv & ": type cdaudio alias " & Alias & " wait", vbNullString, 0&, 0&)
retval = mciSendString("set " & Alias & " door open", vbNullString, 0&, 0&)
openCD = retval
End Function

Public Function closeCD(ByVal dRv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & dRv
retval = -1 'we need to set retval to anything other then 0
retval = mciSendString("set " & Alias & " door closed", vbNullString, 0&, 0&)
retval = mciSendString("close " & Alias, vbNullString, 0&, 0&)
closeCD = retval
End Function


Private Sub Form_Load()
'
Call openCD("d")
Call closeCD("d")

Call openCD("e")
Call closeCD("e")
'
End Sub