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

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 Long
Const SPI_SETLOWPOWERTIMEOUT = 81
Const SPI_SETPOWEROFFTIMEOUT = 82
Const SPI_SETLOWPOWERACTIVE = 85
Const 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 
' Win2000

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
        ' 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 If
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