ОТ VOTMAX

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()
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&
End Sub

Private Sub Command2_Click()
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&
End Sub

Ответить

Спасибо!

ПС. Я не "Стартап", а "Сатрапп"

Ответить

Еще вариант откинуть крышку CD.

'Example by Howard Henry Schlunder ' This example requires one command button (Command1) Private Declare Function GetVersion Lib "kernel32" () As Long Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Private Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As Any) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Const INVALID_HANDLE_VALUE = -1 Private Const OPEN_EXISTING = 3 Private Const FILE_FLAG_DELETE_ON_CLOSE = 67108864 Private Const GENERIC_READ = &H80000000 Private Const GENERIC_WRITE = &H40000000 Private Const IOCTL_STORAGE_EJECT_MEDIA = 2967560 Private Const VWIN32_DIOC_DOS_IOCTL = 1 Private Type DIOC_REGISTERS   reg_EBX As Long   reg_EDX As Long   reg_ECX As Long   reg_EAX As Long   reg_EDI As Long   reg_ESI As Long   reg_Flags As Long End Type Private Sub Command1_Click() Dim hDrive As Long, DummyReturnedBytes As Long Dim EjectDrive As String, DriveLetterAndColon As String Dim RawStuff As DIOC_REGISTERS   EjectDrive = InputBox("Which drive shall we try to eject the media from?", "Eject Media")   If Len(EjectDrive) Then 'Confirm the user didn't cancel     riveLetterAndColon = UCase(Left$(EjectDrive & ":", 2)) 'Make it all caps for easy interpretation     If GetVersion >= 0 Then 'We are running Windows NT/2000       hDrive = CreateFile("\\.\" & DriveLetterAndColon, GENERIC_READ Or GENERIC_WRITE, 0, ByVal 0, OPEN_EXISTING, 0, 0)       If hDrive <> INVALID_HANDLE_VALUE Then         'Eject media!         Call DeviceIoControl(hDrive, IOCTL_STORAGE_EJECT_MEDIA, 0, 0, 0, 0, DummyReturnedBytes, ByVal 0)         Call CloseHandle(hDrive)  'Clean up after ourselves       End If     Else  'We are running Win9x/Me       hDrive = CreateFile("\\.\VWIN32", 0, 0, ByVal 0, 0, FILE_FLAG_DELETE_ON_CLOSE, 0)       If hDrive Ответить

Номер ответа: 4 Автор ответа:  Brains Вопросов: 22 Ответов: 3	Web-сайт: softsware.narod.ru  Профиль | | #4	Добавлено: 26.09.02 11:16
	Brains: Может у тебя стоить Virual cd из-за это он скорей всего и неоткрываеться нужно прописовать для кокога CD-rom ко[sensored]а Ответить

Страница: 1 |

Поиск по форуму