Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Открытие дисковода

Автор: ProggerXandCo 11.9.2010, 17:16

Можно ли открыть дисковод из своей программы?

Автор: Dexx 11.9.2010, 23:48

CD-ROM Код 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() mciSendString "open cdaudio", 0, 0, 0 mciSendString "set cdaudio door open", 0, 0, 0 End Sub 'Закрыть Private Sub Command2_Click() mciSendString "cloce cdaudio", 0, 0, 0 End Sub

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)