Добро пожаловать на наш портал

var sps:_SYSTEM_POWER_STATUS;  
begin 
GetSystemPowerStatus(sps); 
label1.Caption:='ACLineStatus - ' + inttostr(sps.ACLineStatus); 
label2.Caption:='BatteryLifePercent - ' + inttostr(sps.BatteryLifePercent); 
end; 

var SysPowerStatus: TSystemPowerStatus; 
begin GetSystemPowerStatus(SysPowerStatus); 
if Boolean(SysPowerStatus.ACLineStatus) 
then  
begin  
ShowMessage('System running on AC.');  
end  
else  
begin  
ShowMessage('System running on battery.');  
ShowMessage(Format('Battery power left: %d percent.', [SysPowerStatus.BatteryLifePercent]));  
end;  
end;