Hat's einen Akku?

[OLDIE1950]

Code:

// WinApi command to get the status of the battery.
  if GetSystemPowerStatus(pSysPowerStatus) then
  begin
    // get the line status
    case pSysPowerStatus.ACLineStatus of
      0   : s:='Offline';
      1   : s:='Online';
      255 : s:='Unknown status.';
    end;
    label1.caption:='AC power status: '+s;