[TRUCO DELPHI] Conocer el Estado de mi Bateria / Energia.
delphi
procedure TForm1.Button1Click(Sender: TObject); var SysPowerStatus: TSystemPowerStatus; begin GetSystemPowerStatus(SysPowerStatus); if Boolean(SysPowerStatus.ACLineStatus) then begin ShowMessage('Sistema esta conectado a AC.'); end else begin ShowMessage('Sistema en Bateria.'); ShowMessage(Format('Bateria Restante: %d percent.', [SysPowerStatus.BatteryLifePercent])); end; end;
Saludos!