[Delphi] 電源(バッテリ)の状態を取得する: プログラミングの覚え書き

GetSystemPowerStatus関数を使います。この関数はWindows NTでは使用できません。 procedure TForm1.Button1Click(Sender: TObject); var SystemPowerStatus: TSystemPowerStatus; begin GetSystemPowerStatus(SystemPowerStatus); end; 関数を実行するとTSystemPowerStatus構造体に結果が格納されます。構造体のメンバは以下のとおりです。