* SetThreadExecutionState

rtl/win/wininc/defines.inc

@@ -6416,6 +6416,9 @@ const
     GR_GDIOBJECTS_PEAK  = 2;       { Peak count of GDI objects }
     GR_USEROBJECTS_PEAK = 4;       { Peak count of USER objects }
 
+    ES_CONTINUOUS         = dword($80000000);
+    ES_DISPLAY_REQUIRED   = dword($00000002);
+    ES_SYSTEM_REQUIRED    = dword($00000001);
 {$endif read_interface}
 
 {$ifdef read_implementation}

rtl/win/wininc/func.inc

@@ -1342,7 +1342,7 @@ function CONSOLE_REAL_OUTPUT_HANDLE : HANDLE;
 
   // only in widechar variant.
   function GetDateFormatEx(LocaleName : pwidechar;Flags : DWORD;Date : PSYSTEMTIME; Format : pwidechar; DateBuffer : pwidechar; BufferLen  : longint; Calendar : pwidechar) : BOOL; stdcall; external 'kernel32' name 'GetDateFormatEx';
-
+  function SetThreadExecutionState( EXECUTION_STATE : Cardinal ) : Cardinal; stdcall; external 'kernel32.dll' name 'SetThreadExecutionState';
 {$endif read_interface}