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

* added GetGUIThreadInfo reported on the forum

Browse Source
This commit is contained in:
marcoonthegit 2024-04-29 13:24:54 +02:00
parent 1ee8f039ff
commit 9e101c51e3
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

17
rtl/win/wininc/struct.inc
View File

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