Suche Unterstützung für Akku Status Anzeige

[Thaddy]

Delphi-Quellcode:

program BatteryLevel;

uses
  SysUtils, Windows;

var
  PowerStatus: TSystemPowerStatus;
  BatteryLifePercent: Byte;

begin
  if GetSystemPowerStatus(PowerStatus) then
  begin
    BatteryLifePercent := PowerStatus.BatteryLifePercent;
    if BatteryLifePercent <> 255 then
      WriteLn('Battery level: ', BatteryLifePercent, '%')
    else
      WriteLn('Battery level: Unknown');
  end
  else
    WriteLn('Unable to retrieve battery status');
end.