delphi – 如何检测笔记本电脑是否在运行电池？

对于Windows 2000及更高版本,请查看GetSystemPowerStatus,或转到MSDN阅读约Power Management.

(有人总是在我打字时发帖:-()

function GetBattery : Boolean;
var
  SysPowerStatus: TSystemPowerStatus;
begin
  Win32Check(GetSystemPowerStatus(SysPowerStatus));
  case SysPowerStatus.ACLineStatus of
    0: Result := False;
    1: begin
      Result := True;
      // You can return life with
      // String := Format('Battery power left: %u percent.',SysPowerStatus.BatteryLifePercent]);
    end;
    else
      raise Exception.Create('Unknown battery status');
  end;
end;