Как узнать уровень заряда батареи, план электропитания, сменить плаН?

[TwiX]

Не понимаю, почему эту тему перенесли в "Железо"...

[raxp]

изучите структуру TSystemPowerStatus
в частности вам нужна функция - GetSystemPowerStatus

считывать так:

procedure TForm1.Timer1Timer(Sender: TObject);
var b: byte;
begin
GetSystemPowerStatus(SysPowerStatus );
if SysPowerStatus.ACLineStatus=1 then begin
form1.Hint:= 'Питание от сети... [100%]';
pb2.Width := 100* pb1.Width div 100;
pb2.Caption:= '100%'
end else begin
b:= SysPowerStatus.BatteryLifePercent;
form1.Hint:= Format('Питание от батареи: [%d%]', [b]);
pb2.Width := b* pb1.Width div 100;
pb2.Caption:= Format('%d%', [b])
end
end;

pb1,pb2 - це панели одна в другой... альтернатива progressbar шоб размер не увеличивать и без лишних модулей

рабочий пример во вложении...
http://programmersforum.ru/attachmen...1&d=1254563135

[TwiX]

О, спасибо)

[TwiX]

Омг!!!
В архиве вирусы.
EXE-шник в том числе...

[QunneD]

У него просто измененный SysUtils, который палиться как вирус.

[raxp]

sysconst...
спасибо QunneD !

...все поправил, архив заменил
уф, QIP гад подставил