devxlogo

SetPowerInfo – Change settings for Power-off and Low-Power features

SetPowerInfo – Change settings for Power-off and Low-Power features

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 LongConst SPI_SETLOWPOWERTIMEOUT = 81Const SPI_SETPOWEROFFTIMEOUT = 82Const SPI_SETLOWPOWERACTIVE = 85Const SPI_SETPOWEROFFACTIVE = 86' set new settings of Power-off and low-power features' for the screen saver'' POWEROFFACTIVE tells whether the power-off phase of screen saving is enabled.' POWEROFFTIMEOUT returns the timeout in seconds of the power-off feature' LOWPOWERACTIVE tells whether the low-power phase of screen saving is enabled.' LOWPOWERTIMEOUT returns the timeout in seconds of the low-power feature'' Power-off and low-power features are supported under Win95 only for 16-bit ' apps,' under Win98 for both 16- and 32-bit apps, and only for 32-bits apps under ' Win2000Sub 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        ' note that second argument must be 0 or 1        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        ' note that second argument must be 0 or 1        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 IfEnd Sub

devx-admin

Share the Post: