 |
|
Модераторы: Akina |
 
|
|
Как проверить подключены ли динамики [?], вкл./откл. динамики [?] 
| oganes |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 15.12.2008 Репутация: нет Всего: нет |
Добрый вереч!
Помогите, пожалуйста определить подключены ли динамики к компу? Вот как можно определить наличие диска в устройстве: Option Explicit Dim FSO As FileSystemObject Dim CDDrive As Drive Private Sub Form_Load() Set FSO = New FileSystemObject Set CDDrive = FSO.GetDrive("C:") If CDDrive.IsReady Then MsgBox "Диск " & CDDrive.VolumeName Else MsgBox "Диск в лотке отсутствует" End If Set CDDrive = Nothing Set FSO = Nothing End Sub Спасибо заранее! 
|
|||
|
||||
Дата 23.12.2008, 15:25 (
Загрузка ...
| Naghual |
|
|||
 Эксперт  Профиль Группа: Завсегдатай Сообщений: 1893 Регистрация: 15.5.2004 Где: Украина, Днепр Репутация: 26 Всего: 49 |
НИКАК!
 Вообще бред спрашивать на форуме начали... -------------------- Я желаю всем Счастья! |
|||
|
||||
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 34 Всего: 454 |
Глазами посмотреть, куда воткнут провод. Других вариантов нет.
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
|
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
[ Время генерации скрипта: 0.0424 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |