Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=26)
-   -   Ejecutar programa activado por las opciones de energia en W7 (https://www.clubdelphi.com/foros/showthread.php?t=74740)

santi33a 07-07-2011 20:40:12

Ejecutar programa activado por las opciones de energia en W7
 
Hola a todos, necesito saber si es posible mandar a ejecutar un programa cuando la pc entre en modo bateria y esta llegue al 80% de la carga por ejemplo, en Window XP y 2003 es facil pero en W7 y W2008 solo he encontrado la opcion de apagar la pc:confused:
Y muchas gracias por la atensión.

ecfisa 08-07-2011 00:28:38

Hola santi33a.

No tengo W7 y menos aún W2008, pero probá si así te funciona:
Código Delphi [-]
...
var
  PowerState: TSystemPowerStatus;
begin
  if GetSystemPowerStatus(PowerState) then      
    if PowerState.BatteryFlag <> $80 then        
      if PowerState.BatteryLifePercent >= 80 then 
        ShellExecute(Handle,'open','notepad.exe',nil,nil,SW_SHOWNORMAL);
end;

Saludos.

maeyanes 08-07-2011 16:25:47

Hola...

ecfisa, creo que el se refiere a hacer esto desde el mismo sistema operativo y no desde un programa hecho en Delphi.

Y parece ser que desde Windows Vista ya no es posible hacer esto directamente.


Saludos...

ecfisa 08-07-2011 16:43:28

Cita:

Empezado por maeyanes (Mensaje 405864)
Hola...

ecfisa, creo que el se refiere a hacer esto desde el mismo sistema operativo y no desde un programa hecho en Delphi.

Y parece ser que desde Windows Vista ya no es posible hacer esto directamente.

Saludos...

Ha... yo había interpretado que intentaba hacerlo desde código.

Entonces si esa capacidad ya no está soportada, creo que no está a nuestro alcance darle solucion, al menos por esa vía.

Saludos.

santi33a 08-07-2011 17:06:29

gracias ecfisa, desde hace tiempo he buscado algo como eso para entonces programar el apagado de mis pc y no lo habia encontrado, ya lo pruebo a ver que pasa.
:)


La franja horaria es GMT +2. Ahora son las 01:52:40.

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