michelroc
Messages postés84Date d'inscriptionlundi 19 mai 2003StatutMembreDernière intervention 2 janvier 2010
-
30 déc. 2005 à 18:56
sisi231
Messages postés207Date d'inscriptionmercredi 5 mars 2003StatutMembreDernière intervention29 mars 2013
-
30 déc. 2005 à 19:10
Bonjour,
J'ai ecris ce code et la reponse est toujours négative ?? Y a t-il une erreur dans ce code.
Windows XP fam
// Savoir si l'écran de veille est actif ou non:
// Renvoi True si l'écran de veille est activé .
If SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, nil,SPIF_UPDATEINIFILE)
then Label1.Caption := Label1.Caption+' OUI'
Else Label1.Caption := Label1.Caption+' NON';
Merci
Michel
var Actif:boolean;
begin SystemparametersInfo(SPI_GETSCREENSAVEACTIVE,0,@Actif,SPIF_SENDWININICHANGE);
if Actif then ShowMessage('économiseur actif')
else ShowMessage('économiseur non actif');