Změna 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_SETLOWPOWERTIMEOUT
= 81
Const SPI_SETPOWEROFFTIMEOUT = 82
Const SPI_SETLOWPOWERACTIVE = 85
Const SPI_SETPOWEROFFACTIVE = 86
' 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 SetPowerInfo(Optional
ByVal PowerOffActive As Variant, _
Optional ByVal PowerOffTimeout As Variant, Optional ByVal LowPowerActive As
_
Variant, Optional ByVal LowPowerTimeout As Variant)
If Not
IsMissing(PowerOffActive) Then
SystemParametersInfo SPI_SETPOWEROFFACTIVE,
_
CBool(PowerOffActive)
And 1, ByVal 0&, 0
End If
If Not IsMissing(PowerOffTimeout) Then
SystemParametersInfo SPI_SETPOWEROFFTIMEOUT,
_
PowerOffTimeout, ByVal
0&, 0
End If
If Not IsMissing(LowPowerActive) Then
SystemParametersInfo SPI_SETLOWPOWERACTIVE,
_
CBool(LowPowerActive)
And 1, ByVal 0&, 0
End If
If Not IsMissing(LowPowerTimeout) Then
SystemParametersInfo SPI_SETLOWPOWERTIMEOUT,
_
LowPowerTimeout, ByVal
0&, 0
End If
End Sub