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 - открытие Cd-Rom
Private Sub Command1_Click()
Dim retValue As Long
retValue = mciSendString("set CDAudio door open", Returnstring, 127, 0)
End Sub
Private Sub Command2_Click()
retValue = mciSendString("set CDAudio door closed", Returnstring, 127, 0)
'задание кода для кнопки Command2 - закрытие Cd-Rom
End Sub
"--------------------------------------------------------------
Время от времени работает нормально. А иногда в компилированном виде выводит ошибку чтения/записи в память. В исходном виде - просто Бейсик вылетает. Кто сможет объяснить?
