Post by Sver on Nov 30, 2023 2:43:46 GMT -5
Source: ?, Saved many years ago.
This demo is useful for notebook computers that run on batteries.
struct SYSTEMPOWERSTATUS,_
ACLineStatusBatteryFlag as word,_
BatteryLifePercent as word,_
BatteryLifeTime as ulong,_
BatteryFullLifeTime as ulong
'ACLineStatus
' 0=offline
' 1=online
' 255=unknown
'BatteryFlag
' 1 High
' 2 Low
' 4 Critical
' 8 Charging
' 128 No system battery
' 255 Unknown status
'BatteryLifePercent
'0-100% or 255 if status unknown
'BatteryLifeTime
' Number of seconds of battery life remaining,
' or hexdec("FFFFFFFF") if remaining seconds are unknown.
'BatteryFullLifeTime
' Number of seconds of battery life when at full charge,
' or hexdec("FFFFFFFF") if full battery lifetime is unknown.
calldll #kernel32, "GetSystemPowerStatus",_
SYSTEMPOWERSTATUS as struct, re as boolean
ACBF = SYSTEMPOWERSTATUS.ACLineStatusBatteryFlag.struct
print "ACLineStatus is "; ACBF MOD 256
print "BatteryFlag is ";int(ACBF/256)
print "BatteryLifePercent is "; SYSTEMPOWERSTATUS.BatteryLifePercent.struct
print "BatteryLifeTime in seconds is ";SYSTEMPOWERSTATUS.BatteryLifeTime.struct
print "BatteryFullLifeTime in seconds is ";SYSTEMPOWERSTATUS.BatteryFullLifeTime.struct