![]() | ||
ПОЛУЧАЕМ ИНФОРМАЦИЮ О БАТАРЕЕ | ||
Для получения информации об уровне заряда батареи воспользуемся функциейGetSystemPowerStatus. Также с помощью нее можно определить работает компьютер от сети или нет. Поместим на форму компоненты TMemo и TButton. Листинг кода представлен ниже: | ||
unit Unit1; interface uses type public var implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.UpdateInfo(Info: TStrings); case st.ACLineStatus of // текущее подключение case st.BatteryFlag of // Уровень заряда батареи Info.Add('Уровень заряда'#9 + IntToStr(st.BatteryLifePercent) + '%'); // В % if Integer(st.BatteryLifeTime) < 0 then s := 'неизвестно' // В секундах if Integer(st.BatteryFullLifeTime) = -1 then s := 'неизвестно' // Макс. время батареи end. | ||
Delphi Code 24.04.09 - По материалам http://www.delphilab.ru Автор: Snowy |