Akkukapazität auslesen

[Bent1995]

Hallo,

Ich programmiere zurzeit ein Tool, welches einige Informationen über den Akku (eines Notebooks) und das System ausgibt. Jedoch möchte ich nun auch die gesamte kapazität des Akkus auslesen, um die Akkulaufzeit auszurechnen. Jedoch weiß ich nicht wie ich das bewerkstelligen soll. Hab schon in einigen Foren gesucht, jedoch nichts gefunden...

mfg Bent

[ryLIX]

http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

Müsste Alles enthalten was du willst

Threads dazu gibts auch
z.b. http://www.delphipraxis.net/internal...hlight=battery

[Bent1995]

Vielen Dank für deine Schnelle Antwort...

Ich brauche ja diese beiden Funktionen:

DesignedCapacity;
FullChargedCapacity;

jedoch weiß ich nicht wie ich diese anwenden soll...

Knnst du mir vllt. einen Tipp geben?

mfg

[ryLIX]

Ich hab grad was einfacheres gefunden.

GetSystemPowerStatus: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx
SYSTEM_POWER_STATUS: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx

System_Power_Status enthält entspechende infos:

Zitat:

BatteryLifeTime

The number of seconds of battery life remaining, or –1 if remaining seconds are unknown.
BatteryFullLifeTime

The number of seconds of battery life when at full charge, or –1 if full battery lifetime is unknown.

Infos über die Anwendung gibts hier:
http://www.delphi-treff.de/tipps/sys...s%20ermitteln/

[Bent1995]

Mein Quelltext:

Delphi-Quellcode:

    Label23.Caption:= IntToStr(BatteryFullLifeTime);

Dabie kommt i wie 4687076854 raus... kann ich nicht ganhz glauben da das eine ganze ewigkeit währe...

was mach ich falsch?

[hathor]

kmbattinfo:
http://ftp.vector.co.jp/pack/winnt/u...fo-0-5-0-1.zip

Batinf:
http://www.yeahware.com/download/BatInf.zip

[Bent1995]

Super^^ Japanisch meine Hauptsprache... Verstehe gar nichts...

[ryLIX]

Zitat:

Zitat von Bent1995

Mein Quelltext:

Delphi-Quellcode:

    Label23.Caption:= IntToStr(BatteryFullLifeTime);

Dabie kommt i wie 4687076854 raus... kann ich nicht ganhz glauben da das eine ganze ewigkeit währe...

was mach ich falsch?

Hmm sehr seltsam bei meinem NetBook ist das ergenis von BatteryLifeTime 13600 sec.
Was ca 3.5h gibt und realistisch ist da der Akku zu 91% Voll ist :)

Und BatteryFullLifeTime ist -1 O.o

[Luckie]

http://www.michael-puff.de/Developer...erStatus.shtml

[Bent1995]

So es funktioniert soweit... guckts euch mal an!

(für die registrierung: linkes edit 1 und rechtes edit 4)

mfg

[Helmi]

Zitat:

Zitat von Bent1995

So es funktioniert soweit... guckts euch mal an!

(für die registrierung: linkes edit 1 und rechtes edit 4)

speichert der sich dieRegistrierung und falls ja wo?

[hathor]

An der Prozessorgeschwindigkeit musst Du noch arbeiten - das sind nur Hausnummern.

Warum nimmst Du nicht:
http://www.delphipraxis.net/internal...=tcpufrequency

Delphi-Quellcode:

type
  PROCESSOR_POWER_INFORMATION = packed record
    Number: Cardinal;
    MaxMhz: Cardinal;
    CurrentMhz: Cardinal;
    MhzLimit: Cardinal;
    MaxIdleState: Cardinal;
    CurrentIdleState: Cardinal;
  end;
  PPROCESSOR_POWER_INFORMATION = ^PROCESSOR_POWER_INFORMATION;

  TCPUFrequency = packed record
    CurrentMhz: Cardinal;
    MaxMhz: Cardinal;
    MhzLimit: Cardinal;
  end;

var
  CPUFrequency: TCPUFrequency;

function GetCPUFrequency(var CPUFrequency: TCPUFrequency): DWORD;
var
  ppi: PROCESSOR_POWER_INFORMATION;
  err: DWORD;
begin
  ZeroMemory(@ppi, sizeof(PROCESSOR_POWER_INFORMATION));
  err := CallNTPowerInformation(11, nil, 0, @ppi, sizeof(PROCESSOR_POWER_INFORMATION));
  if err = 0 then
  begin
    CPUFrequency.CurrentMhz := ppi.CurrentMhz;
    CPUFrequency.MaxMhz := ppi.MaxMhz;
    CPUFrequency.MhzLimit := ppi.MhzLimit;
  end;
  result := err;
end;
//-------------------------------------
function ReadFREQ : Boolean;
var
  err: DWORD;
begin
  ZeroMemory(@CPUFrequency, sizeof(TCPUFrequency));
  err := GetCPUFrequency(CPUFrequency);
  if err = 0 then result:= true else result:= false;
end;

[Luckie]

Was ist ein krietische Ladezustand? Ich habe einen Desktoprechner. Und was soll die dämliche Registration und wo wird sie gespeichert?

[Gehstock]

Speicherinfos sind falsch bei mir 2gb statt 4gb bzw. weil ich mit nem Win32 System arbeite sollte irgendwas mit 3 gb rauskommen
außerdem ist mindestens ein Rechtschreibfehler drin (der stach ins Auge)


Edit: Luckie hat ihn auch gesehen

[Bent1995]

Zitat:

Zitat von Helmi

Zitat:

Zitat von Bent1995

So es funktioniert soweit... guckts euch mal an!

(für die registrierung: linkes edit 1 und rechtes edit 4)

speichert der sich dieRegistrierung und falls ja wo?

1. Ja er speicher die Registrierung in der Registry!
2. Hier: HKEY_CURRENT_USER --> Software\BatteryInfo\2010\0001

[Luckie]

Und? Habe ich registriert?

[Bent1995]

Erstmal vielen Dank für eure Rezessionen!

1. Es ist noch nicht fertig...
2. Bei Desktoprechnern funzt das Tool net...

[Luckie]

Du hast meine Frage zur Registrierung nicht beantwortet.

[Bent1995]

Zitat:

Zitat von Luckie

Du hast meine Frage zur Registrierung nicht beantwortet.

Ich habe deine Frage leider nicht verstanden... Könntest du sie bitte noch etwas genauer erläutern?

[Luckie]

Ich will von dir wissen, ob ich dein Programm registriert habe.

[Mithrandir]

Zum Testen in der DP solltest du diese Funktion vielleicht herausnehmen, sie nervt nur.

[Luckie]

Vor allem, weil man den Registry Eintrag immer wieder löschen muss.

[Bent1995]

Zitat:

Zitat von Luckie

Ich will von dir wissen, ob ich dein Programm registriert habe.

Woher soll ich das wissen... Das ist nicht über das Internet mit mir verbunden, also kann ich dir das nicht sagen...

[Luckie]

Zitat:

Zitat von Bent1995

Zitat:

Zitat von Luckie

Ich will von dir wissen, ob ich dein Programm registriert habe.

Woher soll ich das wissen... Das ist nicht über das Internet mit mir verbunden, also kann ich dir das nicht sagen...

Und warum dann die Registrierung, wenn es auch ohne Registrierung voll nutzbar ist? Zu mal man einfach nur den Registryschlüssel erstellen muss, um es zu registrieren.

[Bent1995]

Zitat:

Zitat von Luckie

Zitat:

Zitat von Bent1995

Zitat:

Zitat von Luckie

Ich will von dir wissen, ob ich dein Programm registriert habe.

Woher soll ich das wissen... Das ist nicht über das Internet mit mir verbunden, also kann ich dir das nicht sagen...

Und warum dann die Registrierung, wenn es auch ohne Registrierung voll nutzbar ist? Zu mal man einfach nur den Registryschlüssel erstellen muss, um es zu registrieren.

Woher weiß man denn den Regitry Key wenn man den Programmierer nicht kennt, und woher weiß man den Wert, den man eintragen muss?

[hathor]

Jetzt macht doch den Kleinen nicht so fertig....

[Luckie]

Weil ich es meinem Kumpel sage, wenn ich es weitergebe oder weil ich mir einfach die Exe angucke und die Strings sehe oder weil ich innerhalb von fünf Minuten die Abfrage in der Exe umgangen habe. Mein Tipp, lass den Unsinn. Und schon gar nicht zum Testen hier im Forum.

[Mithrandir]

Zitat:

Zitat von Luckie

Und schon gar nicht zum Testen hier im Forum.

Was ich ja quasi schon hier geschrieben habe. Vielleicht solltet ihr mal wieder auf ein vernünftiges Level runterkommen.