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

[Zero.Zero]

سلام دوستان عزیز:قلب:
من میخواستم بدونم که تو VB چه جوری می تونم در سیدی رو باز و بسته کنم

اگه کسی بگه یه2نیا ممنونش میشم:خجالت:

[Payman62]

من کدشو تو سایت های دیگه دیده بودم ولی یادم نیست از چه api هایی استفاده شده بود. اگه پیدا کردم اینجا میذارم.

[Payman62]

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 Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

Private Function SendMCIString(cmd As String, fShowError As Boolean) As Boolean
Static lngRc As Long
Static errStr As String * 200
lngRc = mciSendString(cmd, 0, 0, hWnd)
If (fShowError And lngRc <> 0) Then
mciGetErrorString lngRc, errStr, Len(errStr)
MsgBox errStr
End If
SendMCIString = (lngRc = 0)
End Function
Private Sub Form_Load()
SendMCIString "set cd door open", True
SendMCIString "set cd door closed", True
End Sub

[hbi]

میبخشید ولی مثل این که خطا داره

[S_VB.max]

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
Dim CdRom As String

Private Sub Command1_Click()
If CdRom = "Set CDAudio Door Closed Wait" Or CdRom = "" Then
CdRom = "Set CDAudio Door Open Wait"
mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0&
Else:
CdRom = "Set CDAudio Door Closed Wait"
mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0&
End If
End Sub

[Payman62]

میبخشید ولی مثل این که خطا داره
s_vb تصحیح شدشو گذاشت. فکر کنم کد ایشون کار کنه.