| Вопрос: И еще вопросик... | Добавлено: 19.08.04 14:44 |
Автор вопроса:  SDL | Web-сайт: StarTeleport.Narod.Ru | ICQ: 272678283 |
|
1. Как определить, выдвинут или нет лоток заданного CD-ROMa?
2. Можно ли узнать продолжительность AudioCD? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: Sur ICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #1 | Добавлено: 20.08.04 18:45 |
|
наверняка поможет MCI. Там есть
1 capability cd1 can eject 2 status cd1 length поисчи... |
||
|
Номер ответа: 2 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #2 | Добавлено: 20.08.04 18:50 |
|
первое не так...
open cdaudio alias cd1 1 status cd1 mode (open, stopped) |
||
|
Номер ответа: 3 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #3 | Добавлено: 20.08.04 19:12 |
|
И правда работает...
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 CmdCheck_Click() Dim status As String * 128 mciSendString "open CDAudio alias cd1", 0&, 0&, 0& mciSendString "status cd1 mode", status, 128, 0& Debug.Print 1, status mciSendString "status cd1 length", status, 128, 0& Debug.Print 2, status mciSendString "Close cd1", 0&, 0&, 0& |
||
|
Номер ответа: 4 Автор ответа:  SDL ICQ: 272678283 Вопросов: 27 Ответов: 16 |
Web-сайт: Профиль | | #4 | Добавлено: 24.08.04 11:29 |
| А если ROM-ов несколько? | ||
|
Номер ответа: 5 Автор ответа: SurICQ: 1249088 Вопросов: 10 Ответов: 304 |
Web-сайт: Профиль | | #5 | Добавлено: 24.08.04 13:28 |
| mciSendString("open f:\ type cdaudio alias cd2", 0&, 0, 0) | ||
Страница: 1 |