

TSystemPowerStatus stan;
GetSystemPowerStatus(&stan);
if(((stan.BatteryFlag &128) != 128)) { //czy jest zamontowana bateria
if((stan.BatteryFlag & 1) ==1) Label1->Caption=" Poziom baterii wysoki";
if((stan.BatteryFlag & 2) ==2) Label1->Caption="Poziom baterii niski";
if((stan.BatteryFlag & 4) ==4) Label1->Caption="Poziom baterii krytyczny";
}TSystemPowerStatus stan;
GetSystemPowerStatus(&stan);
if(stan.BatteryLifePercent==255) Label2->Caption="Stan baterii nieznany";
else Label2->Caption = IntToStr(stan.BatteryLifePercent) +"%";

Powrót do Ogólne problemy z programowaniem
Użytkownicy przeglądający ten dział: Brak zalogowanych użytkowników i 6 gości