Как открыть сидюк? - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Как открыть сидюк?
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Как открыть сидюк?

ZMeY опубликован 10-08-2001 18:35 MSK
Народ, может кто знает как на бейсик написать прогу открывающую сидюк!
Поделитись опытом пожалуста!
Pivo опубликован 11-08-2001 15:42 MSK
Add the following code to a BAS module:
Option Explicit
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
Открыть дверцу CD-Rom:
Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&)
Закрыть дверцу CD-Rom:
Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Как открыть сидюк?
ZMeY	опубликован 10-08-2001 18:35 MSK Народ, может кто знает как на бейсик написать прогу открывающую сидюк! Поделитись опытом пожалуста!
Pivo	опубликован 11-08-2001 15:42 MSK Add the following code to a BAS module: Option Explicit 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 Открыть дверцу CD-Rom: Call mciSendString("Set CDAudio Door Open Wait", 0&, 0&, 0&) Закрыть дверцу CD-Rom: Call mciSendString("Set CDAudio Door Closed Wait", 0&, 0&, 0&)