[Notebook Batterie] Batterieleistung auslesen

[gsh]

gut dann wäre des geklärt
aber wie zeigt er des an?

[easteregg]

also in dem msdn (oder wie das jetzt auch immer heißt) gibts ja angeblich sone variable wo das ganze drinsteht.
also die restkapazität und die aktuelle chargerate - und über die beiden sachen kann man das ja errechnen!
also möglich ist es auf jeden fall.

btw: lustigerweiße geht das mit dem auslesen der chargerate auch nicht immer - bei dem gericom notebook (nen Hummer FX) kann der das nicht auslesen

[gsh]

Zitat von easteregg:

also in dem msdn (oder wie das jetzt auch immer heißt) gibts ja angeblich sone variable wo das ganze drinsteht.
also die restkapazität und die aktuelle chargerate - und über die beiden sachen kann man das ja errechnen!
also möglich ist es auf jeden fall.

Versteh nur Bahnhof

Zitat von easteregg:

btw: lustigerweiße geht das mit dem auslesen der chargerate auch nicht immer - bei dem gericom notebook (nen Hummer FX) kann der das nicht auslesen

naja ist halt gericom

[TurboMartin]

schau dir doch noch mal das von der dsdt ganz unten an, man braucht halt nur noch den maximalen akkuladezustand.

[gsh]

ich will ja nicht wissen was der Akku ladezustand ist sondern, die Leistung vom Akku

[TurboMartin]

in der dsdt steht folgendes:

Delphi-Quellcode:

procedure GetStatus;
var SystemPowerStatus: TSystemPowerStatus;
begin
  GetSystemPowerStatus(SystemPowerStatus);
  with SystemPowerStatus do begin
  // Wird das System mit Wechselstrom oder Akku betrieben ?
    case ACLineStatus of
      0: Label1.Caption := 'System wird mit Akku betrieben';
      1: Label1.Caption := 'System wird mit Wechselstrom betrieben';
      else Label1.Caption := 'Unbekannter Status';
    end;

    // Ladezustand der Batterie
    case BatteryFlag of
      1 : Label2.Caption := 'Hoher Ladezustand';
      2 : Label2.Caption := 'Niedriger Ladezustand';
      4 : Label2.Caption := 'Kritischer Ladezustand';
      8 : Label2.Caption := 'Die Batterie wird geladen';
      128: Label2.Caption := 'Es existiert keine System-Batterie';
      255: Label2.Caption := 'Unbekannter Status';
    end;

    // Ladezustand in Prozent
    if BatteryLifePercent <> 255 then
      Label3.Caption := IntToStr(BatteryLifePercent) + ' %'
    else
      Label3.Caption := 'Unbekannter Status';
  end;
end;

dann musst du doch eigentlich folgendes rechnen:

____[maximale Leistung]_____
[100%]*[BatteryLifePercent]

[gsh]

aha ich glaube ich versteh jetzt was du meinst
aber woher bekomme ich die maximale Leistung?

[DaFox]

So, hab' meinen alten Code zu diesem Thema wieder gefunden, ihn __etwas__ aufbereitet und auf meine (och so dolle ) Webseite gesetzt.

Gruß,
Markus

[easteregg]

ah, danke , funktioniert einwandfrei