WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息
WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息
涂孟超 发表于4年前
WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息
  • 发表于 4年前
  • 阅读 8
  • 收藏 0
  • 点赞 0
  • 评论 0

【腾讯云】新注册用户域名抢购1元起>>>   

//声明
GetSystemPowerStatus(
  var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 结构}
): BOOL;

//TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 结构的重定义:
_SYSTEM_POWER_STATUS = packed record
  ACLineStatus : Byte;         {0:电源断电; 1:电源正常; 255:电源状态未知}
  BatteryFlag : Byte;          {1:电量充足; 2:电量低; 4:电池基本耗尽; 8:充电; 128:没有电池; 255:电池状态未知}
  BatteryLifePercent : Byte;   {0..100:所剩电量百分数; 255:未知}
  Reserved1 : Byte;            {保留, 须为 0}
  BatteryLifeTime : DWORD;     {电池剩余能量; -1 表示未知}
  BatteryFullLifeTime : DWORD; {电池总能量; -1 表示未知}
end;

 
 
 
 
 

 

 

  
//举例: procedure TForm1.FormCreate(Sender: TObject); var Power: TSystemPowerStatus; begin GetSystemPowerStatus(Power); Memo1.Clear; with Memo1.Lines do begin Add(Format('电源状态: %d',[Power.ACLineStatus])); Add(Format('电池状态: %d',[Power.BatteryFlag])); Add(Format('电量百分比: %d',[Power.BatteryLifePercent])); Add(Format('剩余能量: %d',[Power.BatteryLifeTime])); Add(Format('总能量: %d',[Power.BatteryFullLifeTime])); end; end;
//效果图:

  • 打赏
  • 点赞
  • 收藏
  • 分享
共有 人打赏支持
粉丝 12
博文 2004
码字总数 14107
×
涂孟超
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: