Zjištění nastavení úspory energie
Funkce:
Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long,
ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_GETLOWPOWERTIMEOUT = 79
Const SPI_GETPOWEROFFTIMEOUT = 80
Const SPI_GETLOWPOWERACTIVE = 83
Const SPI_GETPOWEROFFACTIVE = 84
' POWEROFFACTIVE indikuje,
zda je povoleno vypnutí monitoru.
' POWEROFFTIMEOUT vrací nastavený čas pro time-out
' LOWPOWERACTIVE indikuje, zda je povoleno vypnutí při
nízkém napětí.
' LOWPOWERTIMEOUT vrací nastavený čas pro time-out
'
' Win95: pouze pro 16-bitové aplikace
' Win98: jak pro 16- tak 32-bitové aplikace
' Win2000: pouze pro 32-botové aplikace
Sub GetPowerInfo(PowerOffActive
As Boolean, PowerOffTimeout As Long, _
LowPowerActive As Boolean, LowPowerTimeout As Long)
Dim ok As Long
SystemParametersInfo SPI_GETPOWEROFFACTIVE, 0, ok, 0
PowerOffActive = CBool(ok)
SystemParametersInfo SPI_GETPOWEROFFTIMEOUT, 0,
PowerOffTimeout, 0
SystemParametersInfo SPI_GETLOWPOWERACTIVE, 0, ok, 0
LowPowerActive = CBool(ok)
SystemParametersInfo SPI_GETLOWPOWERTIMEOUT, 0,
LowPowerTimeout, 0
End Sub