[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;