; Author : gnozal
; Date :   05/07/07
; Description : renvoi des informations sur le niveau de la batterie du PC (portable)


If GetSystemPowerStatus_(PowerStatus.SYSTEM_POWER_STATUS)
  Debug PowerStatus\BatteryFlag
  ; BatteryFlag, signification des bits
  ; 1   Charge élevée
  ; 2   Charge basse
  ; 4   Charge critique
  ; 8   En train de charger
  ; 128   Pas de batterie
  ; 255   Statut inconnu
  Debug PowerStatus\BatteryLifePercent
  ; BatteryLifePercent : % de charge restante [$FF si inconnu]
  Debug PowerStatus\BatteryLifeTime
  ; BatteryLifeTime : nombre de secondes restantes [$FFFFFFFF si inconnu]
  Debug PowerStatus\BatteryFullLifeTime
  ; BatteryFullLifeTime : nombre de secondes d'autonomie [$FFFFFFFF si inconnu]
Else
  Debug "GetSystemPowerStatus a foiré"
EndIf