Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-12-2010
Avatar de javier_ecf
javier_ecf javier_ecf is offline
Miembro
 
Registrado: sep 2010
Posts: 32
Poder: 0
javier_ecf Va por buen camino
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.
Responder Con Cita
  #2  
Antiguo 13-12-2010
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.
Archivos Adjuntos
Tipo de Archivo: zip TestBattery.zip (1,9 KB, 8 visitas)
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 13-12-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.

Última edición por ecfisa fecha: 13-12-2010 a las 12:52:23.
Responder Con Cita
  #4  
Antiguo 15-12-2010
Avatar de javier_ecf
javier_ecf javier_ecf is offline
Miembro
 
Registrado: sep 2010
Posts: 32
Poder: 0
javier_ecf Va por buen camino
Gracias, ya lo habia resuelto, disculpen las molestias.
Responder Con Cita
  #5  
Antiguo 27-12-2010
Avatar de juanlaplata
juanlaplata juanlaplata is offline
Miembro
 
Registrado: ene 2007
Ubicación: La Plata, Bs. As. (Argentina)
Posts: 212
Poder: 18
juanlaplata Va por buen camino
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 ....
Responder Con Cita
  #6  
Antiguo 29-12-2010
Avatar de javier_ecf
javier_ecf javier_ecf is offline
Miembro
 
Registrado: sep 2010
Posts: 32
Poder: 0
javier_ecf Va por buen camino
Solucion

Asi como ecfisa dijo.
Responder Con Cita
  #7  
Antiguo 12-01-2011
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Poder: 18
kurono Va por buen camino
he probado el codigo y mi antivirus lo reconoce como un virus para poder ejecutarlo debo desativar el antivirus a que se debe eso
Responder Con Cita
  #8  
Antiguo 13-01-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 13-01-2011 a las 15:52:51.
Responder Con Cita
  #9  
Antiguo 14-01-2011
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.126
Poder: 18
kurono Va por buen camino
el antivirus que uso es el panda 2008 vere si puedo bajar la seguridad a ver que pasa luego te cuento
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Error : El Objeto no está conectado al Servidor guillotmarc Varios 8 16-04-2010 23:52:43
como saber si un clientSocket esta conectado pipo123 Internet 0 19-04-2007 23:22:20
Comprobar si se esta conectado a internet Drake OOP 7 21-12-2006 16:38:18
¿ Quien está conectado a mi equipo ? Roilo Redes 1 28-07-2006 00:01:40
Saber si esta conectado Kaesbu Internet 1 22-09-2003 15:09:45


La franja horaria es GMT +2. Ahora son las 16:48:06.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi