[ecfisa]

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.