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é
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 DECLAREINTEGER GetSystemPowerStatus IN kernel32; STRING @lpSystemPowerStatus
v_buffer = replicate(chr(0), 12)
GetSystemPowerStatus(@v_buffer) returnasc(substr(v_buffer,1,1)) = 1 endproc
*---> Renvoie le niveau de la batterie en pourcentage procedure portable_niveau_batterie() asInteger local v_buffer DECLAREINTEGER GetSystemPowerStatus IN kernel32; STRING @lpSystemPowerStatus
v_buffer = replicate(chr(0), 12)
GetSystemPowerStatus(@v_buffer) returnasc(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 DECLAREINTEGER GetSystemPowerStatus IN kernel32; STRING @lpSystemPowerStatus
v_buffer = replicate(chr(0), 12)
GetSystemPowerStatus(@v_buffer) returnasc(substr(v_buffer,2,1)) = 8 endproc