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

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;