Открыть / Закрыть лоток опт. привода

[morpheus]

Заинтересовала меня одна возможность - открыть закрыть лоток оптического привода ( CD /DVD приводы ). Можно ли это зделать на Lotus.
Вот и получаетсья что можно ( за что и люблю лотус ). Используем Windows API

Всё очень просто в (Declarations) пишем

Declare Function mciSendStringA Lib "C:\WINDOWS\system32\winmm.dll" (Byval lpszCommand As String, Byval lpszReturnString As String, Byval cchReturn As Long,	Byval hwndCallback As Long ) As Long

где единственная заковырка с "C:\WINDOWS\system32\winmm.dll" - но ведь можно использовать Динамический LScript ( выяснить расположение папки с Windows не составит труда - используя переменные среды + windir )

ну и на кнопку повевить приблизительно такой код

		 Call mciSendStringA( "set cdaudio door open", "", 0, 0 ) - открыть
Call mciSendStringA( "set cdaudio door closed", "", 0, 0 ) - закрыть

Не стану расписывать значения параметров данной фунции mciSendString - можете прочитать на

Ссылка скрыта от гостей

Автор - Я