Binaryworld - GetPowerInfo - Retrieve current settings for Power-off and Low-Power f ... [ VB -> Windows ]

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

' retreive current 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
' Win2000

Sub GetPowerInfo(PowerOffActive As Boolean, PowerOffTimeout As Long, _
  LowPowerActive As Boolean, LowPowerTimeout As Long)
  Dim ok As Long
  ' get Power-off flag, move in output variable
  SystemParametersInfo SPI_GETPOWEROFFACTIVE, 0, ok, 0
  PowerOffActive = CBool(ok)
  ' get Power-off timeout
  SystemParametersInfo SPI_GETPOWEROFFTIMEOUT, 0, PowerOffTimeout, 0
  ' get Low-Power flag, move in output variable
  SystemParametersInfo SPI_GETLOWPOWERACTIVE, 0, ok, 0
  LowPowerActive = CBool(ok)
  ' get Low-power timeout
  SystemParametersInfo SPI_GETLOWPOWERTIMEOUT, 0, LowPowerTimeout, 0
End Sub