paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 03:28:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some extra constants and added typing to setexecutionstate

Browse Source
This commit is contained in:
marcoonthegit 2023-02-06 14:04:46 +01:00
parent 0639ec476d
commit 2ac86ab662
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/wininc/base.inc
View File

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

7
rtl/win/wininc/defines.inc
View File

@ -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}

2
rtl/win/wininc/func.inc
View File

@ -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}