Power-Status des Computers ermitteln?

[Matze]

Ach, hier haste es:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure GetStatus;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.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;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetStatus;
end;