Controle du moniteur

Soyez le premier à donner votre avis sur cette source.

Vue 6 300 fois - Téléchargée 369 fois

Description

API sur Windows 2000 et autres(?).
Le prog joint montre tres bien le fonctionnement.

Source / Exemple :


Detail de l'API:
SystemParametersInfo(uiAction: Cardinal; uiParam: Cardinal; pvParam: Pointer;
fWinIni:Cardinal)

  • Activité de l'écran de veille:
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil,SPIF_UPDATEINIFILE) Renvois True si l'écran de veille est en cours, False sinon.
  • Activer/desactiver l'écran de veille:
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, *, nil,SPIF_UPDATEINIFILE)
  • Activé=1 , Désactivé=0
  • Savoir si l'écran de veillle est Activé ou non:
SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, nil,SPIF_UPDATEINIFILE) Renvois True si l'écran de veille est activé, False sinon.
  • Specifier la duree de la mise en route de l'ecran de veille:
SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, *, nil,SPIF_UPDATEINIFILE)
  • correspond à un temps éxprimé en seconde.
  • Récupérer la duree de la mise en route de l'ecran de veille:
SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, @*,SPIF_UPDATEINIFILE)
  • correspond à un temps éxprimé en seconde.
  • Spécifier la duree de mise en veille du moniteur:
SystemParametersInfo(SPI_SETPOWEROFFTIMEOUT, *, nil,SPIF_UPDATEINIFILE)
  • correspond à un temps éxprimé en seconde.
  • Récupérer la duree de mise en veille du moniteur:
SystemParametersInfo(SPI_SETPOWEROFFTIMEOUT, 0, @*,SPIF_UPDATEINIFILE)
  • correspond à un temps éxprimé en seconde.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Jos
Messages postés
130
Date d'inscription
mardi 26 juin 2001
Statut
Membre
Dernière intervention
8 février 2005
-
Très intéressant!!!

...ça l'a dû me bouche-bée, pcq je ne saurais quoi ajouter!!! ;-)
taye78
Messages postés
108
Date d'inscription
mardi 18 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2007
-
Salut, ton source est interessant.
Quelques petites remarques:

if CheckBox1.Checked=True

le '=True' n'est pas necessaire car la propriété Checked de Checkbox1 renvoit une valeur boolean donc cela peut-être écrit: if CheckBox1.Checked Then [...]

Essaye de mieux formater ton code pour le rendre plus lisible.

8/10
Bacterius
Messages postés
3869
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
6 -
Bonjour,

Côté négatif :
- renomme les composants
- indente les blocs
Exemple :
quand toi tu écris
if Tontruc = True then
begin
MonAction1
MonAction2
end;

il vaut mieux écrie :
if Tontruc = True then
begin
MonAction1
MonAction2
end;

Tu vois ?

- "CheckBox1.Checked=True" bon ben oui "CheckBox1.Checked" suffit.
Et pour dire "CheckBox1.Checked=False" tu marques "not CheckBox1.Checked".

Côté positif :
- ben le code est assez basique, sauf les dernières lignes : "WinExec('rundll32.exe shell32.dll,Control_RunDLL DESK.CPL',SW_SHOWNORMAL);"

trrrès interessant, oui ...
Allez je note 8/10

Bonne continuation !

Cordialement, Bacterius !

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.