简单电池电量显示

Project1.dpr

program Project1;

uses
   Forms,Windows,
   Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
   Application.Initialize;
   SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);//使程序不显示在任务栏中
   Application.Title := '电池电量显示';
   Application.CreateForm(TForm1, Form1);
   Application.Run;
end.

======================================================================
Unit1.pas

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, RzStatus, Menus;

type
   TForm1 = class(TForm)
     Timer1: TTimer;
     RzProgressStatus1: TRzProgressStatus;
     PopupMenu1: TPopupMenu;
     N1: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure RzProgressStatus1MouseDown(Sender: TObject;
       Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
   Power: TSystemPowerStatus;
begin
    GetSystemPowerStatus(Power);
    RzProgressStatus1.Percent:=Power.BatteryLifePercent;//获取电量百分比
   //根据电量百分比显示不同颜色
   if Power.BatteryLifePercent>=40 then
    begin
       RzProgressStatus1.BarColor:=clLime;
       RzProgressStatus1.BarColorStop:=clGreen;
    end
   else if   (Power.BatteryLifePercent<40) and (Power.BatteryLifePercent>=10) then
    begin
       RzProgressStatus1.BarColor:=clYellow;
       RzProgressStatus1.BarColorStop:=clOlive;
    end
   else if Power.BatteryLifePercent<10 then
    begin
       RzProgressStatus1.BarColor:=clRed;
       RzProgressStatus1.BarColorStop:=clMaroon;
    end;
end;

procedure TForm1.N1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.RzProgressStatus1MouseDown(Sender: TObject;
   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//为控件添加拖动事件,使其可以被拖动
ReleaseCapture;
SendMessage(Handle, WM_SYSCOMMAND, 61457, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //指定显示位置..桌面右下角
   Form1.Left:=Screen.Width-RzProgressStatus1.Width+2;
   Form1.Top:=Screen.Height-RzProgressStatus1.Height-29;
end;

end.