ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Informations sur un ordinateur portable (niveau batterie, ...)

	Description
Retour à la liste L'auteur Anatole France Membre Simple # 0000000002 enregistré le 12/10/2004 Fiche personnelle Note des membres pas de note	Contributions > 05 - API et appels systèmes Informations sur un ordinateur portable (niveau batterie, ...) # 0000000103 ajouté le 28/11/2004 15:29:49 et modifié le 28/11/2004 consulté 8055 fois Niveau initié Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0
	Voici quelques procédures pour avoir des informations sur un ordinateur portable : Est-t'il branché au secteur ? Quel est son niveau de batterie ? Est-t'il en train de se charger ?
	Code source :
	---> Renvoie .T. si le portable est branché au secteur procedure portable_branche() as Boolean local v_buffer DECLARE INTEGER GetSystemPowerStatus IN kernel32; STRING @lpSystemPowerStatus v_buffer = replicate(chr(0), 12) GetSystemPowerStatus(@v_buffer) return asc(substr(v_buffer,1,1)) = 1 endproc ---> Renvoie le niveau de la batterie en pourcentage procedure portable_niveau_batterie() as Integer local v_buffer DECLARE INTEGER GetSystemPowerStatus IN kernel32; STRING @lpSystemPowerStatus v_buffer = replicate(chr(0), 12) GetSystemPowerStatus(@v_buffer) return asc(substr(v_buffer,3,1)) endproc ---> Renvoie .T. si la batterie du portable est en train ---> de se chargée procedure portable_encharge() as Boolean DECLARE INTEGER GetSystemPowerStatus IN kernel32; STRING @lpSystemPowerStatus v_buffer = replicate(chr(0), 12) GetSystemPowerStatus(@v_buffer) return asc(substr(v_buffer,2,1)) = 8 endproc
	Commentaires
	Aucun commentaire enregistré ...

Informations sur un ordinateur portable (niveau batterie, ...)

Contributions > 05 - API et appels systèmes