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

+ added the win16api window query and enumeration functions

Browse Source 
git-svn-id: trunk@31739 -
This commit is contained in:
nickysn 2015-09-17 14:27:25 +00:00
parent 077ce10a93
commit 051c8e74ce
2 changed files with 31 additions and 0 deletions

18
rtl/win16/winprocsh.inc
View File

@ -905,3 +905,21 @@ procedure ScreenToClient(hwnd: HWND; var pt: POINT); external 'USER';
function WindowFromPoint(pt: POINT): HWND; external 'USER';
function ChildWindowFromPoint(hwndParent: HWND; pt: POINT): HWND; external 'USER';
{ Window query and enumeration }
function GetDesktopWindow: HWND; external 'USER';
function FindWindow(lpszClassName, lpszWindow: LPCSTR): HWND; external 'USER';
function EnumWindows(wndenmprc: WNDENUMPROC; lParam: LPARAM): BOOL; external 'USER';
function EnumWindows(wndenmprc: TFarProc; lParam: LPARAM): BOOL; external 'USER';
function EnumChildWindows(hwndParent: HWND; wndenmprc: WNDENUMPROC; lParam: LPARAM): BOOL; external 'USER';
function EnumChildWindows(hwndParent: HWND; wndenmprc: TFarProc; lParam: LPARAM): BOOL; external 'USER';
function EnumTaskWindows(htask: HTASK; wndenmprc: WNDENUMPROC; lParam: LPARAM): BOOL; external 'USER';
function EnumTaskWindows(htask: HTASK; wndenmprc: TFarProc; lParam: LPARAM): BOOL; external 'USER';
function GetTopWindow(hwnd: HWND): HWND; external 'USER';
function GetWindow(hwnd: HWND; fuRel: UINT): HWND; external 'USER';
function GetNextWindow(hwnd: HWND; uFlag: UINT): HWND; external 'USER';

13
rtl/win16/wintypes.inc
View File

@ -1617,3 +1617,16 @@ type
const
WM_GETMINMAXINFO = $0024;
type
{ Window query and enumeration }
WNDENUMPROC = function(hwnd: HWND; lParam: LPARAM): BOOL; far;
const
{ GetWindow() constants }
GW_HWNDFIRST = 0;
GW_HWNDLAST = 1;
GW_HWNDNEXT = 2;
GW_HWNDPREV = 3;
GW_OWNER = 4;
GW_CHILD = 5;