Как узнать заряд батареи ноута?

[lvv12000]

Может кто знает как в Винде раскопать информацию о текущем заряде батареи ноутбука?..

[lvv12000]

ВОПРОС СНЯТ!
Виноват - сам слепой...
Все очень просто:
----------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
sps:_SYSTEM_POWER_STATUS;
begin
GetSystemPowerStatus(sps);
label1.Caption:='ACLineStatus - ' + inttostr(sps.ACLineStatus);
label2.Caption:='BatteryLifePercent - ' + inttostr(sps.BatteryLifePercent);
end;
----------------------------------------------------

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

[imtec]

кто-нибудь знает как получить дополнительную информацию о батарее? емкость батареи и т. д.

[theYozh]

http://www.delphilab.ru/content/view/287/1/

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    procedure PowerStatusChange(var Message: TMessage); message WM_POWERBROADCAST;
    procedure UpdateInfo(Info: TStrings);
  end;
 
var Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // При старте программы выводим текущую информацию
   UpdateInfo(Memo1.Lines);
end;
 
procedure TForm1.PowerStatusChange(var Message: TMessage);
begin
  // Пришло сообщение WM_POWERBROADCAST - нужно обновить информацию
  Memo1.Clear;
  UpdateInfo(Memo1.Lines);
end;
 
procedure TForm1.UpdateInfo(Info: TStrings);
// Получаем и выводим информацию о батарее в TStrings
var
  st: TSystemPowerStatus;
  s:  string;
begin
  GetSystemPowerStatus(st); // Получить информацию
 
  case st.ACLineStatus of // текущее подключение
    0: s := 'от батареи';
    1: s := 'от сети';
    else s := 'не известно';
  end;
  Info.Add('Питание'#9 + s);
 
  case st.BatteryFlag of // Уровень заряда батареи
    0: s := 'нормальный';
    1: s := 'высокий'; // >= 66%
    2: s := 'низкий'; // <= 33%
    4: s := 'критический'; // <=5%
    8: s := 'заряжается';
    128: s := 'батарея отсутствует';
    else s := 'нет информации';
  end;
  Info.Add('Заряд батарей'#9 + s);
 
  Info.Add('Уровень заряда'#9 + IntToStr(st.BatteryLifePercent) + '%'); // В %
 
  if Integer(st.BatteryLifeTime) < 0 then s := 'неизвестно' // В секундах
  else s := TimeToStr(st.BatteryLifeTime / SecsPerDay);
  Info.Add('Время работы от батерей'#9 + s);
 
  if Integer(st.BatteryFullLifeTime) = -1 then s := 'неизвестно' // Макс. время батареи
  else s := TimeToStr(st.BatteryFullLifeTime / SecsPerDay);
  Info.Add('Максимальное время работы'#9 + s);
end;
 
end.

[BDA]

Тупо скопировал этот код и откомпилировал (для проверки работоспособности).
Так вот, у меня на Win7x64 данные сами не обновляются в проге (может я что-нибудь прописать забыл?).

Одна тема - один вопрос.
Вопрос в чужой теме - оффтоп.