Управление электропитанием в Delphi

[kholoshchak]

Всем привет
Помогите пожалуйста. Как узнать программно от чего работает ноутбук? (от батареи или от сети). Очень нужно...

За ранее спасибо...

[raxp]

GetSystemPowerStatus заполнит структуру TSystemPowerStatus/

[volod3000]

 var
   SysPowerStatus: TSystemPowerStatus;
 begin
   GetSystemPowerStatus(SysPowerStatus);
   if Boolean(SysPowerStatus.ACLineStatus) then
   begin
     ShowMessage('Система работает от сети.');
   end
   else
   begin
     ShowMessage('Система работает от батареи.');
     ShowMessage(Format('Заряд батареи: %d percent.', [SysPowerStatus.BatteryLifePercent]));
   end;
 end;

И, еще тут посмотрите