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

Тема в разделе "Работа с API", создана пользователем morpheus, 9 апр 2008.

  1. morpheus

    morpheus скриптописец

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

    Всё очень просто в (Declarations) пишем
    Код (Text):
    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 )

    ну и на кнопку повевить приблизительно такой код
    Код (Text):
             Call mciSendStringA( "set cdaudio door open", "", 0, 0 ) - открыть
    Call mciSendStringA( "set cdaudio door closed", "", 0, 0 ) - закрыть
    Не стану расписывать значения параметров данной фунции mciSendString - можете прочитать на msdn.com

    Автор - Я :)
     
Загрузка...

Поделиться этой страницей