Batterie restante...
MaxSoldier
Messages postés
289
Date d'inscription
dimanche 10 août 2003
Statut
Membre
Dernière intervention
28 février 2009
-
12 juin 2005 à 18:26
MaxSoldier Messages postés 289 Date d'inscription dimanche 10 août 2003 Statut Membre Dernière intervention 28 février 2009 - 13 juin 2005 à 12:14
MaxSoldier Messages postés 289 Date d'inscription dimanche 10 août 2003 Statut Membre Dernière intervention 28 février 2009 - 13 juin 2005 à 12:14
2 réponses
BruNews
Messages postés
21040
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
13 juin 2005 à 01:26
13 juin 2005 à 01:26
API GetSystemPowerStatus() qui remplit une structure SYSTEM_POWER_STATUS dont les membres te diront ce qui t'intéresse.
ciao...
BruNews, MVP VC++
ciao...
BruNews, MVP VC++
MaxSoldier
Messages postés
289
Date d'inscription
dimanche 10 août 2003
Statut
Membre
Dernière intervention
28 février 2009
2
13 juin 2005 à 12:14
13 juin 2005 à 12:14
Merci, ça marche génial :
Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
Private Type SYSTEM_POWER_STATUS
ACLineStatus As Byte
BatteryFlag As Byte
BatteryLifePercent As Byte
Reserved1 As Byte
BatteryLifeTime As Long
BatteryFullLifeTime As Long
End Type
Private Sub Form_Load()
Dim sps As SYSTEM_POWER_STATUS
GetSystemPowerStatus sps
MsgBox sps.BatteryLifePercent
End Sub
-=Ar$£nik=-
Private Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
Private Type SYSTEM_POWER_STATUS
ACLineStatus As Byte
BatteryFlag As Byte
BatteryLifePercent As Byte
Reserved1 As Byte
BatteryLifeTime As Long
BatteryFullLifeTime As Long
End Type
Private Sub Form_Load()
Dim sps As SYSTEM_POWER_STATUS
GetSystemPowerStatus sps
MsgBox sps.BatteryLifePercent
End Sub
-=Ar$£nik=-
