Immer noch fehlerhaft. Akku ist voll geladen und hat 100%.
Nachtrag:
Du hast falsche Werte "eingeschmuggelt":
Delphi-Quellcode:
class function TPowerStatusInfo.Refresh: Boolean;
begin
if FUpdateCounter <= 0 then
FSuccess := GetSystemPowerStatus(FSystemPowerStatus);
FSystemPowerStatus.ACLineStatus := 1;
FSystemPowerStatus.BatteryFlag := 9;
FSystemPowerStatus.BatteryFullLifeTime := 4294967295;
FSystemPowerStatus.BatteryLifePercent := 79;
FSystemPowerStatus.BatteryLifeTime := 4294967295;
Result := FSuccess;
end;