Probleme de screensaver

Signaler
Messages postés
138
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
28 janvier 2006
-
Messages postés
36
Date d'inscription
vendredi 12 juillet 2002
Statut
Membre
Dernière intervention
21 décembre 2004
-
Comment faire pour desactiver l'écrande veille !! (que se soit par api ou autre !!)

1 réponse

Messages postés
36
Date d'inscription
vendredi 12 juillet 2002
Statut
Membre
Dernière intervention
21 décembre 2004

Avec cette API

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

Private Const SPI_SETSCREENSAVEActivation = 17

Tu ajoute cette fonction aussi

Public Function AlternerEcranDeVeille(Activation As Boolean) As Boolean
Dim SignetDActivation As Long
Dim RetourDeLaValeur As Long
SignetDActivation = IIf(Activation, 1, 0)
RetourDeLaValeur = SystemParametersInfo(SPI_SETSCREENSAVEActivation, SignetDActivation, 0, 0)
AlternerEcranDeVeille = RetourDeLaValeur > 0
End Function

Lorsque tu appelles cette fonction tu met True si tu veux mettre l'écran et False si tu veux pas...
0