Změna času pro spuštění ScreenSaveru

Private Declare Function SystemParametersInfo Lib "user32.dll" Alias_
   "SystemParametersInfoA" (ByVal uAction As Long, _
   ByVal uiParam As Long, pvParam As Any, _
   ByVal fWinIni As Long) As Long

Private Const SPI_SETSCREENSAVEACTIVE = 17
Private Const SPI_SETSCREENSAVETIMEOUT = 15
Private Const SPIF_UPDATEINIFILE = &H1


Public Function SetScreenSaverTimeOut(TimeOutInMinutes _
   As Long) As Boolean

   Dim lRet As Long
   Dim lSeconds As Long

   On Error GoTo ErrH:

   'API používá sekundy, takže přetransformujeme parametr na minuty
   lSeconds = TimeOutInMinutes * 60

   'Aktivace screen saveru, pouze pokud není aktivní
   lRet = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, _
         1, 0, SPIF_UPDATEINIFILE)

   If lRet > 0 Then
      lRet = SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, _
            lSeconds, 0, SPIF_UPDATEINIFILE)
      SetScreenSaverTimeOut = lRet > 0
   End If

ErrH:

End Function

Použití:
SetScreenSaverTimeOut 15

Zpět