* getguiresources + constants, mantis 035546 by 440bx

git-svn-id: trunk@42030 -

rtl/win/wininc/defines.inc

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

rtl/win/wininc/func.inc

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