フリーソフト

« [BCB] OSの名前を取得する(簡易版) | トップページ | [BCB] フォームが最大化(最小化)されているか調べる »

[Delphi] 電源(バッテリ)の状態を取得する

GetSystemPowerStatus関数を使います。この関数はWindows NTでは使用できません。

procedure TForm1.Button1Click(Sender: TObject);
var
 SystemPowerStatus: TSystemPowerStatus;
begin
 GetSystemPowerStatus(SystemPowerStatus);
end;

関数を実行するとTSystemPowerStatus構造体に結果が格納されます。構造体のメンバは以下のとおりです。

ACLineStatusAC電源の状態
BatteryFlagバッテリの充電状態
BatteryLifePercentバッテリの残り(%)
Reserved1未使用(常に0)
BatteryLifeTimeバッテリの残り時間(秒)
BatteryFullLifeTimeフル充電状態での残り時間(秒)

値の意味は以下のとおりです。

ACLineStatus

0オフライン
1オンライン
255不明

BatteryFlag

1残り66%以上
2残り33%以下
4残り5%以下
8充電中
128バッテリはない
255不明

« [BCB] OSの名前を取得する(簡易版) | トップページ | [BCB] フォームが最大化(最小化)されているか調べる »

Delphi」カテゴリの記事

システム関連」カテゴリの記事

コメント

この記事へのコメントは終了しました。