[시스템] PC의 전원상태 알아보기

// GetSystemPowerStatus() API 함수와 SYSTEM_POWER_STATUS 구조체의
// 도움말을 참고하세요

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  PowerRec: TSystemPowerStatus;
begin
  Memo1.Clear;
  if GetSystemPowerStatus(PowerRec) then
    with PowerRec do
    begin
      Memo1.Lines.Add('ACLine Status: '+ Format('%d', [ACLineStatus]) );
      Memo1.Lines.Add('Battery Flag: '+ Format('%d', [BatteryFlag]) );
      Memo1.Lines.Add('Battery Life %: '+ Format('%d%', [BatteryLifePercent]) );
      Memo1.Lines.Add('Battery Life Time: '+ Format('%d', [BatteryLifeTime]) );
      Memo1.Lines.Add('Battery Full Life Time: '+ Format('%d', [BatteryFullLifeTime]) );
    end;
end;

end.