EnableExplicit

Define SysPS.SYSTEM_POWER_STATUS

GetSystemPowerStatus_(SysPS)

Select SysPS\ACLineStatus & $FF
  Case 0
    Debug "Es wurde kein externes Netzteil angeschlossen."
  Case 1
    Debug "Externes Netzteil ist angeschlossen."
  Case 2
    Debug "Es konnte nicht ermittelt werden, ob ein externes Netzteil angeschlossen ist."
EndSelect

Select SysPS\BatteryFlag & $FF
  Case 1
    Debug "Die Batterie ist über 66 % aufgeladen."
  Case 2
    Debug "Die Batterie ist weniger als 33 % aufgeladen."
  Case 4
    Debug "Die Batterie ist fast leer."
  Case 8
    Debug "Die Batterie wird gerade aufgeladen."
  Case 128
    Debug "Es konnte keine Batterie gefunden werden."
  Case 255
    Debug "Fehler beim Auslesen."
EndSelect

;Diese Daten nur dann abfragen, wenn Batterie angeschlossen ist, da sonst 255 zurückgegeben wird.
MessageRequester("","Gesamt-Zeit: "+Str(SysPS\BatteryFullLifeTime & $FF),0)
MessageRequester("","In Prozent: "+Str(SysPS\BatteryLifePercent & $FF),0)
MessageRequester("","Verbleibende Zeit: "+Str(SysPS\BatteryLifeTime & $FF),0)