Komponente zum abrufen des Batteriestatus

[Furtbichler]

Zitat von Dennis07:

In dem fall Bedeutet "06" nicht "6", sondern ist die Abkürzung für 2006...

Gut, dann sollte das eigentlich BDS 2006 heißen oder gibt es auch ein Turbo Delphi 2006?

[himitsu]

Das erste Turbo Delphi ist eine Edition/Variante von Delphi 2006.

[t.roller]

Zitat von jaenicke:

Ich habe mal eine kleine Unit dafür geschrieben. Fast nicht getestet,...

Testen sollte man...

Mein Notebook läuft OHNE Netzteil und OHNE Akku.

[jaenicke]

Ich habe leider nicht allzu viele Geräte zum Testen zur Verfügung.
Kannst du vielleicht mal einen Screenshot vom Inhalt von FSystemPowerStatus machen bitte?

[t.roller]

Netzteil angeschlossen, Akku wird geladen.
Siehe Anhang:

[Ghostwalker]

Jup...bei mir das gleiche +
Fehler "Ungültiges Argument beim codieren der Uhrzeit" oder sowas....

Fehler gefunden:

Code:

var
  LifeTimeSeconds: [COLOR="Red"]Integer;[/COLOR]
begin
  if Refresh then
  begin
    LifeTimeSeconds := FSystemPowerStatus.BatteryFullLifeTime;
    if LifeTimeSeconds = $FFFFFFFF then

LifeTimeSeconds ist bei mir -1 und das scheint wohl doch nicht $FFFFFFFF zu sein

System Win10 Prof
Comp 10.2 Tokyo Starter

[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