Hilfreich ist an der Stelle noch BatteryFlag abzufragen.
Inhalte sind:
Delphi-Quellcode:
case TSystemPowerStatus.BatteryFlag of
1 : 'Hoher Ladezustand';
2 : 'Niedriger Ladezustand';
4 : 'Kritischer Ladezustand';
8 : 'Die Batterie wird geladen';
128:'Es existiert keine System-Batterie';
255:'Unbekannter Status';