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

   
   
     

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

Страница: 1 |

 

  Вопрос: VBA (Excel) Work With CD Добавлено: 17.09.02 22:25  

Автор вопроса:  XM WS

Druzia, podskazhite PLZ, kak na VBA realizovat` Vidviganie treya CD-ROMa i kak opredelit`, chto CD uzhe vstavlen. (T.e. tolko chto zadvinuli tray CD_ROMa)

Spasibo.

Ответить

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

Номер ответа: 1
Автор ответа:
 Иван



Администратор

ICQ: 147688925 

Вопросов: 24
Ответов: 708
  Web-сайт: www.vbnet.ru
 Профиль | | #1 		Добавлено: 21.09.02 14:23

Как открыть 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

Теперь для открытия CD-ROM вызовите эту функцию с такими параметрами:
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&;)

а ее для закрытия:
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&;)

Ответить

Номер ответа: 2
Автор ответа:
 XM WS



Вопросов: 6
Ответов: 3
  Профиль | | #2 Добавлено: 21.09.02 16:37

А как отреагировать на закрытие лотка CD-Rom. Т.е. начать процесс сразу же как диск станет доступным?

Ответить

Страница: 1 |

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



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