Private Const SPI_GETSCREENSAVEACTIVE As Long = 16& Private Const SPIF_SENDWININICHANGE As Long = &H2 Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long Public Function IsScreenSaverActive() As Boolean Dim lRet As Long Call SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0&, lRet, SPIF_SENDWININICHANGE) IsScreenSaverActive = Not (lRet = 0) End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.