Ответ: Подсветка экрана Nokia
Методы нужно вызывать как обычные процедуры.
procedure set_lights(num:integer; level:integer)
установить уровень яркости подсветки
num - номер устройства, 0 - экран, 1 - дополнительные;
level - яркость, 0-100;
procedure flash_lights(duration:integer)
включить подсветку на duration миллисекунд;
procedure start_vibra(freq:integer; duration:integer)
включить вибро с частотой freq(0-без вибрации, для проверки поддержки, 1-100 - интенсивность вибрации) на duration миллисекунд
procedure stop_vibra()
выключить вибрацию.
Добавил в библиотеку обработку исключений, чтобы не зависало в случае ошибок.
На счет батареи - DirectUtils тут точно не поможет, можно попробовать через getProperty, где-то на форуме был список ключей.
|