Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Как отрывать CD, если их ДВА?????? Добавлено: 25.12.03 14:10  

Автор вопроса:  Ra$cal | Web-сайт: www.rascalspb.narod.ru | ICQ: 8068014 

Сделал программу, открывающую CD, а у друга их два. Отсюда вопрос: а как быть в таком случае. Сидюки открываются, когда им захочется. Может это делать через ASPI и SPTI. Кто знаком с этой траблой, пишите!!!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 freeloader



ICQ: 50804884 

Вопросов: 72
Ответов: 642
  Web-сайт: freeloader.folder-pro.net
 Профиль | | #1 		Добавлено: 25.12.03 14:30

Посмотри на форуме, точно было, много раз обсуждался этот вопрос, осуществляется все через API

Ответить

Номер ответа: 2
Автор ответа:
 Tiv



Вопросов: 0
Ответов: 1
  Профиль | | #2 Добавлено: 25.12.03 19:22

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 GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Const DRIVE_CDROM = 5
 
Private Sub Form_Load()
Dim i As Long
  For i = Asc("D") To Asc("Z")
    If GetDriveType(Chr$(i) & ":") = DRIVE_CDROM Then
      List1.AddItem Chr$(i)
    End If
  Next
End Sub

Private Sub Command1_Click() 'Открыть
mciSendString "open " & List1.List(List1.ListIndex) & "", vbNullString, 0, 0
mciSendString "set cdaudio door open Wait", vbNullString, 0, 0
mciSendString "close cdaudio", vbNullString, 0, 0
End Sub

Private Sub Command2_Click() 'Закрыть
mciSendString "open " & List1.List(List1.ListIndex) & " type cdaudio alias cdaudio", vbNullString, 0, 0
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&;)
End Sub

Ответить

Страница: 1 |

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



© Copyright 2002-2011 VBNet.RU | Пишите нам