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

* getguiresources + constants, mantis 035546 by 440bx

Browse Source 
git-svn-id: trunk@42030 -
This commit is contained in:
marco 2019-05-10 15:21:32 +00:00
parent 6a6436c076
commit 1c583d3e0d
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6389,6 +6389,11 @@ const
CONSOLE_WINDOWED_MODE = 2;
PROCESS_NAME_NATIVE = 1;
GR_GDIOBJECTS = 0; { Count of GDI objects }
GR_USEROBJECTS = 1; { Count of USER objects }
GR_GDIOBJECTS_PEAK = 2; { Peak count of GDI objects }
GR_USEROBJECTS_PEAK = 4; { Peak count of USER objects }
{$endif read_interface}
{$ifdef read_implementation}

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

@ -1329,6 +1329,7 @@ function CONSOLE_REAL_OUTPUT_HANDLE : HANDLE;
function OpenThread(DesiredAccess : DWORD; InheritHandle : BOOL; ThreadId : DWORD) : THANDLE; stdcall; external 'kernel32.dll' name 'OpenThread';
function GetShellWindow:HWND; stdcall; external 'user32.dll' name 'GetShellWindow';
function RealChildWindowFromPoint(Parent : HWND; Pt : TPOINT): HWND; stdcall; external 'user32.dll' name 'RealChildWindowFromPoint';
function GetGuiResources(ProcessHandle : THANDLE; ResourceType : DWORD): DWORD; stdcall; external 'user32.dll' name 'GetGuiResources';
{$endif read_interface}