WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息
生活随笔
收集整理的這篇文章主要介紹了
WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
//聲明
GetSystemPowerStatus(var lpSystemPowerStatus: TSystemPowerStatus {TSystemPowerStatus 結構}
): BOOL;//TSystemPowerStatus 是 _SYSTEM_POWER_STATUS 結構的重定義:
_SYSTEM_POWER_STATUS = packed recordACLineStatus : 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);
varPower: TSystemPowerStatus;
beginGetSystemPowerStatus(Power);Memo1.Clear;with Memo1.Lines dobeginAdd(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;//效果圖:
總結
以上是生活随笔為你收集整理的WinAPI: GetSystemPowerStatus - 获取系统电源状态的信息的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： Yahoo 拒绝 Microsoft 的
- 下一篇： [翻译]RobotTurK: 灾难情况紧