+ added the win16api window query and enumeration functions

git-svn-id: trunk@31739 -

rtl/win16/winprocsh.inc

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

rtl/win16/wintypes.inc

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