No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Conocer el Estado de mi Bateria / Energia.

delphi

procedure TForm1.Button1Click(Sender: TObject);
	var
	  SysPowerStatus: TSystemPowerStatus;
	begin
	  GetSystemPowerStatus(SysPowerStatus);
	  if Boolean(SysPowerStatus.ACLineStatus) then
	  begin
	    ShowMessage('Sistema esta conectado a AC.');
	  end
	  else
	  begin
	    ShowMessage('Sistema en Bateria.');
	    ShowMessage(Format('Bateria Restante: %d percent.',
	[SysPowerStatus.BatteryLifePercent]));
	  end;
	end;

Saludos!