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

morpheus

скриптописец
07.08.2006
3 915
1
#1
Заинтересовала меня одна возможность - открыть закрыть лоток оптического привода ( 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 - можете прочитать на msdn.com

Автор - Я :)