[nino]

Добрый день!

Возникла необходимость программно поменять некторые настройки электропитания в Win7, такие как время ухода в ждущий режим, отключение дисплея, а также отключение заставки.

Гугл ничего внятного не дал, поэтому обращаюсь к вам, форумчане - быть может, кто-то сталкивался с подобной проблемой или есть какие-то мысли на этот счет?

[m1sclick]

Может это все где то в реестре лежит?

[nino]

SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);

заставка нашел как выключается

[nino]

Сообщение от m1sclick

Может это все где то в реестре лежит?

да вот кто б его знал! скорее всего, но где?

[NumLock]

Power Management Functions

[nino]

Сообщение от NumLock

Power Management Functions

большое спасибо!

[nino]

форумчане, помогите пожалуйста примером!

DWORD WINAPI PowerWriteSettingAttributes(
__in const GUID *SubGroupGuid,
__in const GUID *PowerSettingGuid,
__in DWORD Attributes
);


изменить время ухода в сон и время отключения дисплея.

http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

[NumLock]

используй PowerGetActiveScheme для получения активной схемы электропитания, PowerEnumerate для получения всех схем и всех элементов настройки схемы. помогут в этом PowerReadFriendlyName и PowerReadDescription, чтобы на родном языке понять назначение каждого параметра.

[NumLock]

задать время отключения экрана 13 минут при питании от розетки:

Код:

const
  g: TGUID = '{3C0BC021-C8A8-4E07-A973-6B14CBCB2B7E}'; // Отключать экран через
var
  PActivePolicyGuid: PGUID;
  ActivePolicyGuid: TGUID;
begin
  if PowerGetActiveScheme(0, PActivePolicyGuid)<>0 then Oops;
  ActivePolicyGuid:=PActivePolicyGuid^;
  LocalFree(HLOCAL(PActivePolicyGuid));
  if PowerWriteACValueIndex(0, @ActivePolicyGuid, @GUID_VIDEO_SUBGROUP, @g, 60*13)<>0 then Oops;
  if PowerSetActiveScheme(0, @ActivePolicyGuid)<>0 then Oops;
end;