Saber si esta conectado el adaptador de corriente en una laptop
 

Hola, bueno, tengo rato buscando por la internet como hacer esto, incluso dentro del mismo foro, pero no encuentro nada que me diga como hacerlo.

Explico, necesito saber si el adaptador de corriente o de carga de una laptop, esta conectado o no a la misma.

Gracias.

Supongo que se debe poder hacer utilizando WMI, pero en estos momentos no puedo probartelo. La clase es Win32_Battery.

Haz la prueba con el DPR que te adjunto y a ver qué resultado devuelve en ambos casos; Conectado y desconectado. Segun el resultado, podemos probar otra cosas.

Hola.

También se puede usar la función Win Api GetSystemPowerStatus
Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  PowerState: TSystemPowerStatus;
begin
  GetSystemPowerStatus(PowerState);
  if PowerState.ACLineStatus = 1 then
   ShowMessage('Conectada a la red eléctrica')
  else
   ShowMessage('No conectada a la red eléctrica');
end;

Y si querés detectar el cambio de estado (conectada/desconectada) podés capturar el mensaje WM_POWERBROADCAST.
Ejemplo:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
   ...
  private
    procedure WMPowerBroadCast(var Msg: TMessage); message WM_POWERBROADCAST;
  public
  end;
...
Interface
...
procedure TForm1.WMPowerBroadCast(var Msg: TMessage);
var
  PowerState: TSystemPowerStatus;
begin
  if Msg.WParam =  $0A then
  begin
    GetSystemPowerStatus(PowerState);
    if PowerState.ACLineStatus = 1 then
      ShowMessage('Se ha conectado a la red eléctrica')
    else
      ShowMessage('Se desconectó de la red eléctrica');
  end;
end;

Saludos.

Gracias, ya lo habia resuelto, disculpen las molestias.

Muy bien por ti, y por los que respondieron. pueda tambien que comentes cual fue la solucion que le diste al asunto, si es que es distinta a las propuestas.
Gracias a todos ....

Solucion
 

Asi como ecfisa dijo.

he probado el codigo y mi antivirus lo reconoce como un virus para poder ejecutarlo debo desativar el antivirus a que se debe eso

Hola kurono.

Es extraño. El NOD 32 en ningún momento me dió esa alerta, pero no sé que antivirus estés usando...

Supongo que la seguridad del mismo está muy alta y esté tomando la captura del mensaje WM_POWERBROADCAST como un posible intento de ataque. Tal vez puedas configurar el nivel de seguridad en tiempo real o aplicarle una exclusión en el antivirus a la aplicación que estés generando.

Un saludo.

el antivirus que uso es el panda 2008 vere si puedo bajar la seguridad a ver que pasa luego te cuento