Power-Status des Computers ermitteln?

[joe666sa]

@NicoDE

Das fünktioniert aber hald aber leider muss ich die stellen Laberlx.caption := Text weglassen.

Aber die frage ist hald warum.

[alcaeus]

Ich weiß nicht, du könntest Variablenparameter vom Typ String verlangen und die Ergebnisse dort hineinschreiben, du könntest auch ein Form angeben lassen das Labels enthält, oder du machst es so wie Matze gesagt hat:

Zitat:

Zitat von Matze

Binde diese procedur unter private ein, oder schreibe einfach immer

Delphi-Quellcode:

Form1.Label1.Caption := ...

Aber ich kann dir auch die komplette Unit zeigen, falls du das möchtest. ;)

Delphi-Quellcode:

 private
    { Private-Deklarationen }
    procedure GetStatus;
  public
...
procedure TForm1.GetStatus;
var SystemPowerStatus: TSystemPowerStatus;
begin
...

[NicoDE]

Zitat:

Zitat von joe666sa

Aber die frage ist hald warum.

Weil Du keine Label auf Deiner Form gelegt hast, bzw. sie nicht Label1, Label2 und Label3 heißen.

[Nicodius]

lad dir dochmal auf der DELPHISOURCE SEITE die Sourcedatei runetr da stehen alle solche fragen drinnen

[Luckie]

So und hier das ganze aufbereitet für die Code-Lib:

Delphi-Quellcode:

function GetPowerStatus(var HasBattery: Boolean; var LoadStatusString: String;
  var LoadstatusPercent: Integer): DWORD;
var
  SystemPowerStatus: TSystemPowerStatus;
  Text: string;
resourcestring
  rsLoadStatusUnknown = 'Unbekannter Status';
  rsLoadStatusNoBattery = 'Es existiert keine Batterie';
  rsLoadStatusHigh = 'Hoher Ladezustand';
  rsLoadStatusLow = 'Niedriger Ladezustand';
  rsLoadStatusCritical = 'Kritischer Ladezustand';
  rsLoadStatusLoading = 'Batterie wird geladen';
  rsLoadSatusUnknownLoading = 'Unbekannter Ladezustand';
begin
  SetLastError(0);
  if GetSystemPowerStatus(SystemPowerStatus) then
    with SystemPowerStatus do
    begin
      HasBattery := ACLineStatus = 0;

      // Ladezustand der Batterie
      if (BatteryFlag = 255) then
        Text := rsLoadStatusUnknown
      else if (BatteryFlag and 128 = 128) then
        Text := rsLoadStatusNoBattery
      else
      begin
        case (BatteryFlag and (1 or 2 or 4)) of
          1: Text := rsLoadStatusHigh;
          2: Text := rsLoadStatusLow;
          4: Text := rsLoadStatusCritical;
        else
          Text := rsLoadSatusUnknownLoading
        end;
        if (BatteryFlag and 8 = 8) then
          LoadStatusString := Text + rsLoadStatusLoading;
      end;

      // Ladezustand in Prozent
      if (BatteryLifePercent <> 255) then
        LoadstatusPercent := BatteryLifePercent
      else
        LoadstatusPercent := -1;
  end;
  Result := GetLastError;
end;

Unabhängig von irgendwelchen Labels oder sonstigen Zeug, zu dem wird der Letzte Systemfehler zurückgegeben auf dem man testen kann, ob alles geklappt hat, bzw. wenn nicht kann man ihn anzeigen lassen.