كيفية معرفة نسبة البطارية

الكود بالـVb.Net 

        Dim power As PowerStatus = SystemInformation.PowerStatus
        Dim percent As Single = power.BatteryLifePercent
        MsgBox("Percent battery life remaining: " & percent * 100)

الكود بالـDelphi

procedure TForm1.Button1Click(Sender: TObject);
var
  PowerStatus: TSystemPowerStatus;
begin
  GetSystemPowerStatus(PowerStatus);
  if PowerStatus.ACLineStatus=1 then
    Label1.Caption:='AC power online'
  else
    Label1.Caption:='AC power offline';

  Label2.Caption:=IntToStr(PowerStatus.BatteryLifePercent);
  Label3.Caption:=IntToStr(PowerStatus.BatteryFlag);
  Label4.Caption:=IntToStr(PowerStatus.BatteryLifeTime);
  Label5.Caption:=IntToStr(PowerStatus.BatteryFullLifeTime);
end;