Activate/Deactivate Screen Saver
With this
source code you can activate/deactivate the screen saver. It's useful if you
don't want that the screen saver will start running when your application is
running. When the user close your application you can activate the screen saver
again.
Form Code
Private Const SPI_SETSCREENSAVEACTIVE = 17
Private Const
SPIF_UPDATEINIFILE = &H1
Private Const
SPIF_SENDWININICHANGE = &H2
Private Declare Function SystemParametersInfo Lib
"user32" Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam
As Long, ByVal lpvParam As Long, _
ByVal fuWinIni As Long) As Long
Public Function ActivateScreenSaver(Active As
Boolean) As Boolean
Dim retval As Long
Dim ActiveFlag As
Long
ActiveFlag = IIf(Active, 1, 0)
retval =
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, ActiveFlag, 0,
0)
ActivateScreenSaver = retval > 0
End Function
Private Sub
Form_Load()
'the line code below will
deactivate the screen saver. if you want
'to activate the
screen saver, change the 'False'
below to 'True'
ActivateScreenSaver (False)
End Sub