Komponente zum abrufen des Batteriestatus

[jaenicke]

Da habe ich damals ein paar Fehler gemacht...

Korrektur siehe Anhang...
PowerStatusInfo.pas

[t.roller]

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;

[jaenicke]

Argh, danke, ich habe den Anhang korrigiert...

[Ghostwalker]

Kleine zusätzliche Info:

Die Anzeige "Kein Akku vorhanden" ist sogar korrekt und bezieht sich auf den 1. Akku. 2. Akku wird (zumindest von der Standard-Windows Anzeige) als vorhanden gemeldet mit XX %.

Scheint so, als ob die Auflistung der Flags in der MSDN wohl ein wenig.....wenig ist

[bnreimer42]

Ich habe die Rückgabe mal mit dem Output von smBIOS verglichen:

https://github.com/RRUZ/tsmbios/blob...atteryInfo.dpr

Kommt bei mir beide Male das selbe raus.

Unschön ist nur die Umwandlung des Datums 0 in 31.12.1899. Ich denke, man kann sagen, es ist kein Wert vorhanden, wenn 0 im Record zurückgegeben wird.