delphi获得笔记本的电池状态（剩余百分比，状体，剩余事件，电池总使用时间）

winfredzhang

已于 2023-02-05 09:31:59 修改

阅读量199

点赞数

CC 4.0 BY-SA版权

文章标签： delphi 笔记本电池状态剩余时间

于 2023-02-05 09:31:58 首次发布

本文链接：https://blog.youkuaiyun.com/winniezhang/article/details/128888254

该代码片段用于获取系统电源状态，包括是否连接交流电、电池剩余百分比以及电池的剩余和总使用时间。当ACLineStatus为0时，表示电源状态脱机；为1表示联机；为2则表示未知。BatteryLifePercent用于显示电池剩余百分比，而BatteryLifeTime和BatteryFullLifeTime分别表示当前电池剩余时间和满电时的总使用时间，如果值为$FFFFFFFF，则表示时间未知。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var lpsps: SYSTEM_POWER_STATUS;
begin
  GetSystemPowerStatus(lpsps);
  case lpsps.ACLineStatus of
    0: Memo2.Lines.Add( ( '电源状态    脱机'));
    1: Memo2.Lines.Add(  ('电源状态    联机'));
    2: Memo2.Lines.Add(  ('电源状态    未知'));
  end;

  case lpsps.BatteryLifePercent of
    0..100:  Memo2.Lines.Add( '剩余电池    ' + IntToStr(lpsps.BatteryLifePercent) + '%'); 
    255:  Memo2.Lines.Add(  '剩余电池    未知');
  end;

  if lpsps.BatteryLifeTime = $FFFFFFFF then
     Memo2.Lines.Add(  '电池剩余时间    未知')
  else
     Memo2.Lines.Add(  '电池剩余时间    ' + IntToStr(lpsps.BatteryLifeTime div 60 div 60) + '小时');
  if lpsps.BatteryFullLifeTime = $FFFFFFFF then
     Memo2.Lines.Add(  '电池总使用时间    未知' )
  else
    Label5.Caption := '电池总使用时间    ' + IntToStr(lpsps.BatteryFullLifeTime) + '秒';