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

* input related functions and structs, based on Mantis #35064

Browse Source 
git-svn-id: trunk@42994 -
This commit is contained in:
marco 2019-09-14 13:11:55 +00:00
parent 55c4c61cd5
commit 3bae3a4aa4
3 changed files with 777 additions and 721 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

File diff suppressed because it is too large Load Diff

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

@ -1330,6 +1330,7 @@ function CONSOLE_REAL_OUTPUT_HANDLE : HANDLE;
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';
function SendInput(InputsCount : UINT; InputsPtr : PINPUT; Size : WINT) : UINT; stdcall; external 'user32.dll' name 'SendInput';
{$endif read_interface}

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

@ -8814,6 +8814,49 @@ type
PIMAGE_LOAD_CONFIG_DIRECTORY = PIMAGE_LOAD_CONFIG_DIRECTORY32;
{$endif}
MOUSEINPUT = record
dx : LONG;
dy : LONG;
MouseData : DWORD;
dwFlags : DWORD;
Time : DWORD;
ExtraInfo : ULONG_PTR;
end;
TMOUSEINPUT = MOUSEINPUT;
PMOUSEINPUT = ^MOUSEINPUT;
LPMOUSEINPUT = PMOUSEINPUT;
KEYBDINPUT = record
wVk : WORD;
wScan : WORD;
dwFlags : DWORD;
Time : DWORD;
ExtraInfo : ULONG_PTR;
end;
TKEYBDINPUT = KEYBDINPUT;
PKEYBDINPUT = ^KEYBDINPUT;
LPKEYBDINPUT = PKEYBDINPUT;
HARDWAREINPUT = record
uMsg : DWORD;
wParamL : WORD;
wParamH : WORD;
end;
THARDWAREINPUT = HARDWAREINPUT;
PHARDWAREINPUT = ^HARDWAREINPUT;
LPHARDWAREINPUT = PHARDWAREINPUT;
INPUT = record
_Type : DWORD;
case integer of
1 : (mi : MOUSEINPUT);
2 : (ki : KEYBDINPUT);
3 : (hi : HARDWAREINPUT);
end;
TINPUT = INPUT;
PINPUT = ^INPUT;
LPINPUT = PINPUT;
{$push}
{$packrecords 4}