Delphi. Трюки и эффекты - читать бесплатно онлайн полную версию книги автора Валерий Викторович Борисок (ч. 302)

...

TSystemPowerStatus = packed record
ACLineStatus : Byte; //Подключение к сети
//переменного тока
BatteryFlag : Byte; //Состояние батареи
//(уровень заряда и прочее)
BatteryLifePercent : Byte; //Оставшийся ресурс батареи (в %)
Reserved1 : Byte;
BatteryLifeTime : DWORD; //Оставшееся время (в сек.)
//работы батареи
BatteryFullLifeTime : DWORD; //Полное время (в сек.)
//работы батареи
end;

Если значения полей BatteryLifePercent, BatteryLif eTime, BatteryFull-Lif eTime предельно ясны, то извлечение информации из полей ACLineStatus и BatteryFlag можно посмотреть в листинге 7.5.