* some extra constants and added typing to setexecutionstate

rtl/win/wininc/base.inc

@@ -842,6 +842,8 @@ type
      PCCSTYLEFLAGA = ^CCSTYLEFLAGA;
 
      LPCCSTYLEFLAGA = ^CCSTYLEFLAGA;
+     EXECUTION_STATE = DWORD;
+     PEXECUTION_STATE = ^EXECUTION_STATE;
 
 {$endif read_interface}
 

rtl/win/wininc/defines.inc

@@ -6416,9 +6416,12 @@ 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);
+    ES_DISPLAY_REQUIRED   = dword($00000002);
+    ES_USER_PRESENT       = dword($00000004);
+    ES_AWAYMODE_REQUIRED  = dword($00000040);
+    ES_CONTINUOUS         = dword($80000000);
+
 {$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';
+  function SetThreadExecutionState( esflags:EXECUTION_STATE ) : Cardinal; stdcall; external 'kernel32.dll' name 'SetThreadExecutionState';
 {$endif read_interface}