| Вопрос: Как сделать виртуальную кнопку "Извлечь" для CD... | Добавлено: 02.01.03 16:32 |
Автор вопроса:  Лёха | Web-сайт: www.arhninja.narod.ru
|
|
Подскажите как сделать виртуальную кнопку "Извлечь" для CD-rom'а на VB,при вожможности скиньте исходники на мыло ARHNINJA@NAROD.RU |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Иван Администратор ICQ: 147688925 Вопросов: 24 Ответов: 708 |
Web-сайт: Профиль | | #1 | Добавлено: 02.01.03 18:15 |
Посмотри в Библиотеке кодов  !
|
||
|
Номер ответа: 2 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #2 | Добавлено: 03.01.03 00:23 |
|
shas napishu, dam |
||
|
Номер ответа: 3 Автор ответа: Sergey. Вопросов: 5 Ответов: 2 |
Профиль | | #3 | Добавлено: 03.01.03 06:05 |
|
Открыть_и_закрыть_CD_ROM Option Explicit Private Sub Комманда1_Click() Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0& End Sub Private Sub Комманда2_Click() Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0& End Sub 'Модуль Public 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 |
||
'|
Номер ответа: 4 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #4 | Добавлено: 03.01.03 21:42 |
|
aga, ne mog najte u sya v zapisyah. A ya ishe dumal nado ulavlivat` nazhatiya na klave... |
||
Страница: 1 |