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

Question

如何(从 Delphi)检测笔记本电脑何时使用电池(或交流电)运行？

Answer 1

要在 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;