delphi - 如何检测笔记本电脑何时使用电池供电？

当笔记本电脑依靠电池(或交流电)运行时，如何检测(通过Delphi)？

最佳答案

要在Vista和Windows 7上状态更改时收到通知，可以使用 RegisterPowerSettingNotification 。

对于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;

关于delphi - 如何检测笔记本电脑何时使用电池供电？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/1639538/