Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB5,VB6,Win98,Win2K
Expertise: Intermediate
Jan 20, 2001

GetPowerInfo - Retrieve current 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 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
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date