Empecher l'ecran de veille de s'executer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 944 fois - Téléchargée 99 fois


Contenu du snippet

Comment puis-je empecher l'ecran de veille de s'executer ?

Mettez ce Code dans un Module :

Source / Exemple :


Public Const SPI_SETSCREENSAVEACTIVE = 17
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2

Public 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

' Pour Désactiver l'ecran de Veille :
retval=SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, 0)

' Pour Activer l'ecran de Veille :
retval=SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, 0)

A voir également

Ajouter un commentaire

Commentaires

Frank339
Messages postés
164
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
19 décembre 2008
-
ca marche sur tout les windoz ?
gregmena
Messages postés
22
Date d'inscription
mardi 10 juin 2003
Statut
Membre
Dernière intervention
19 novembre 2006
-
Salut : Apparement il n'y as pas de restriction d'OS. cette API fonctionne c'est certain sur Windows XP. mais pour win 95,98,.... c'est à vérifier.

Mais dans l' MSDN de windows il n'y a aucune informations qui signale une restriction de la commande SPI_SETSCREENSAVEACTIVE.

Voilà bonne prog :-)
gloomy64
Messages postés
46
Date d'inscription
lundi 18 octobre 2004
Statut
Membre
Dernière intervention
3 avril 2008
-
Attention se n'est plus empecher mais supprimer l'écran de veille... donc si l'application a un bug, il n'y auras plus d'économisateur... je pense que le nom de la source peux tromper les debutants...

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.