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

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



L'auteur

Anatole
France 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é 3974 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0

Description

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é ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3