* added GetGUIThreadInfo reported on the forum

rtl/win/wininc/func.inc

@@ -1343,9 +1343,10 @@ 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( esflags:EXECUTION_STATE ) : Cardinal; stdcall; external 'kernel32.dll' name 'SetThreadExecutionState';
-{$endif read_interface}
 
 
+  function GetGUIThreadInfo(InThreadId : DWORD;InoutGuiThreadInfo : PGUITHREADINFO): BOOL; stdcall; external 'user32.dll' name 'GetGUIThreadInfo';{$endif read_interface}
+
 {$ifdef read_implementation}
 
 { Win32 API calling convention

rtl/win/wininc/struct.inc

@@ -9466,8 +9466,6 @@ type
     CONSOLE_FONT_INFOEX = _CONSOLE_FONT_INFOEX;
     PCONSOLE_FONT_INFOEX = ^_CONSOLE_FONT_INFOEX;
 
-
-
     _CONSOLE_HISTORY_INFO = record
         cbSize : UINT;
         HistoryBufferSize : UINT;
@@ -9506,6 +9504,21 @@ type
           ComputerNamePhysicalDnsFullyQualified,
           ComputerNameMax=31);
     TCOMPUTER_NAME_FORMAT = COMPUTER_NAME_FORMAT;
+
+
+  PGUITHREADINFO = ^TGUITHREADINFO;
+  TGUITHREADINFO = record
+    cbSize           : DWORD;     { must be initialized before the call       }
+    flags            : DWORD;
+    hwndActive       : HWND;
+    hwndFocus        : HWND;
+    hwndCapture      : HWND;
+    hwndMenuOwner    : HWND;
+    hwndMoveSize     : HWND;
+    hwndCaret        : HWND;
+    rcCaret          : TRECT;
+  end;
+
 {$pop}
 {$endif read_interface}