НоутБук, Зарядка батареи

[subsonic]

Как считать процент заряда батареи в ноутбуке?В "Винде" есть событие значит в "делфи" должно быть..

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
 var
   SysPowerStatus: TSystemPowerStatus;
 begin
   GetSystemPowerStatus(SysPowerStatus);
   if Boolean(SysPowerStatus.ACLineStatus) then
   begin
     ShowMessage('System running on AC.');
   end
   else
   begin
     ShowMessage('System running on battery.');
     ShowMessage(Format('Battery power left: %d percent.', [SysPowerStatus.BatteryLifePercent]));
   end;
 end;

(DelphiWorld)

[mihali4]

Или, как вариант:

procedure TForm1.BitBtn1Click(Sender: TObject);
var sps:_SYSTEM_POWER_STATUS;
begin
GetSystemPowerStatus(sps);
label1.Caption:='ACLineStatus - ' + inttostr(sps.ACLineStatus);
label2.Caption:='BatteryLifePercent - ' + inttostr(sps.BatteryLifePercent);
end;

У меня батареи нет, выдает 255%.
Наверное, надо нормализовать, чтобы было 100?

[Stilet]

Наверное, надо нормализовать, чтобы было 100?

Читаем справочку:

Members

ACLineStatus

AC power status. This parameter can be one of the following values:

Value Meaning
0 Offline
1 Online
255 Unknown status.


All other values are reserved.

BatteryFlag

Battery charge status. This parameter can be a combination of the following values:

Value Meaning
1 High
2 Low
4 Critical
8 Charging
128 No system battery
255 Unknown status

Ну значит не может толком определить заряд потому что от сети комп питается, ессно там хоть мулюен процентов будет )