/*++ * * WOW v1.0 * * Copyright (c) 1991, Microsoft Corporation * * WUWIND.C * WOW32 16-bit User API support * * History: * Created 07-Mar-1991 by Jeff Parsons (jeffpar) * 12-FEB-92 mattfe changed WU32EnumTaskWindows to access 16 bit TDB --*/ #include "precomp.h" #pragma hdrstop MODNAME(wuwind.c); // From wumsg.c [SendDlgItemMesssage caching] extern HWND hdlgSDIMCached ; // From wuman.c [Identify thunked system class WndProcs] extern WORD gUser16CS; // From wkman.c [hinst/hmod for user32] extern HANDLE ghInstanceUser32; // dwExStyle is used by the CreateWindow and CreateWindowEx thunks // so that they can use a common procedure (don't worry, the current // task cannot be preempted during its use) STATIC ULONG dwExStyle; // Some apps (DASHboard from HP) try to get PROGMAN to save its settings // in a funky way. This variable is used to help detect these guys. // Bobday 5/29/93 HWND hwndProgman = (HWND)0; /*++ void AdjustWindowRect(, , ) LPRECT ; DWORD ; BOOL ; The %AdjustWindowRect% function computes the required size of the window rectangle based on the desired client-rectangle size. The window rectangle can then be passed to the %CreateWindow% function to create a window whose client area is the desired size. A client rectangle is the smallest rectangle that completely encloses a client area. A window rectangle is the smallest rectangle that completely encloses the window. The dimensions of the resulting window rectangle depend on the window styles and on whether the window has a menu. Points to a %RECT% structure that contains the coordinates of the client rectangle. Specifies the window styles of the window whose client rectangle is to be converted. Specifies whether the window has a menu. This function does not return a value. This function assumes a single menu row. If the menu bar wraps to two or more rows, the coordinates are incorrect. --*/ ULONG FASTCALL WU32AdjustWindowRect(PVDMFRAME pFrame) { RECT t1; register PADJUSTWINDOWRECT16 parg16; GETARGPTR(pFrame, sizeof(ADJUSTWINDOWRECT16), parg16); WOW32VERIFY(GETRECT16(parg16->f1, &t1)); AdjustWindowRect( &t1, LONG32(parg16->f2), BOOL32(parg16->f3) ); PUTRECT16(parg16->f1, &t1); FREEARGPTR(parg16); RETURN(0); } /*++ void AdjustWindowRectEx(, , , ) LPRECT ; DWORD ; BOOL ; DWORD ; The %AdjustWindowRectEx% function computes the required size of the rectangle of a window with extended style based on the desired client-rectangle size. The window rectangle can then be passed to the %CreateWindowEx% function to create a window whose client area is the desired size. A client rectangle is the smallest rectangle that completely encloses a client area. A window rectangle is the smallest rectangle that completely encloses the window. The dimensions of the resulting window rectangle depends on the window styles and on whether the window has a menu. Points to a %RECT% structure that contains the coordinates of the client rectangle. Specifies the window styles of the window whose client rectangle is to be converted. Specifies whether the window has a menu. Specifies the extended style of the window being created. This function does not return a value. This function assumes a single menu row. If the menu bar wraps to two or more rows, the coordinates are incorrect. --*/ ULONG FASTCALL WU32AdjustWindowRectEx(PVDMFRAME pFrame) { RECT t1; register PADJUSTWINDOWRECTEX16 parg16; GETARGPTR(pFrame, sizeof(ADJUSTWINDOWRECTEX16), parg16); WOW32VERIFY(GETRECT16(parg16->f1, &t1)); AdjustWindowRectEx( &t1, LONG32(parg16->f2), BOOL32(parg16->f3), DWORD32(parg16->f4) ); PUTRECT16(parg16->f1, &t1); FREEARGPTR(parg16); RETURN(0); } /*++ HWND ChildWindowFromPoint(, ) HWND ; POINT ; The %ChildWindowFromPoint% function determines which, if any, of the child windows belonging to the given parent window contains the specified point. Identifies the parent window. Specifies the client coordinates of the point to be tested. The return value identifies the child window that contains the point. It is NULL if the given point lies outside the parent window. If the point is within the parent window but is not contained within any child window, the handle of the parent window is returned. --*/ ULONG FASTCALL WU32ChildWindowFromPoint(PVDMFRAME pFrame) { ULONG ul; POINT t2; register PCHILDWINDOWFROMPOINT16 parg16; GETARGPTR(pFrame, sizeof(CHILDWINDOWFROMPOINT16), parg16); COPYPOINT16(parg16->f2, t2); ul = GETHWND16(ChildWindowFromPoint(HWND32(parg16->f1), t2)); FREEARGPTR(parg16); RETURN(ul); } /*++ HWND ChildWindowFromPointEx(, , ) HWND ; POINT ; UINT ; The %ChildWindowFromPointEx% function determines which, if any, of the child windows belonging to the given parent window contains the specified point. Identifies the parent window. Specifies the client coordinates of the point to be tested. Skipping flags The return value identifies the child window that contains the point. It is NULL if the given point lies outside the parent window. If the point is within the parent window but is not contained within any child window, the handle of the parent window is returned. --*/ ULONG FASTCALL WU32ChildWindowFromPointEx(PVDMFRAME pFrame) { ULONG ul; POINT pt32; register PCHILDWINDOWFROMPOINTEX16 parg16; GETARGPTR(pFrame, sizeof(CHILDWINDOWFROMPOINTEX16), parg16); COPYPOINT16(parg16->pt, pt32); ul = GETHWND16(ChildWindowFromPointEx(HWND32(parg16->hwnd), pt32, DWORD32(parg16->wFlags))); FREEARGPTR(parg16); RETURN(ul); } /*++ HWND CreateWindow(, , , , , , , , , , ) LPSTR ; LPSTR ; DWORD ; int ; int ; int ; int ; HWND ; HMENU ; HANDLE ; LPSTR ; The %CreateWindow% function creates an overlapped, pop-up, or child window. The %CreateWindow% function specifies the window class, window title, window style, and (optionally) initial position and size of the window. The %CreateWindow% function also specifies the window's parent (if any) and menu. For overlapped, pop-up, and child windows, the %CreateWindow% function sends WM_CREATE, WM_GETMINMAXINFO, and WM_NCCREATE messages to the window. The parameter of the WM_CREATE message contains a pointer to a %CREATESTRUCT% structure. If WS_VISIBLE style is given, %CreateWindow% sends the window all the messages required to activate and show the window. If the window style specifies a title bar, the window title pointed to by the parameter is displayed in the title bar. When using %CreateWindow% to create controls such as buttons, check boxes, and text controls, the parameter specifies the text of the control. Points to a null-terminated string that names the window class. The class name can be any name registered with the RegisterClass function or any of the predefined control-class names specified in Table T.2, "Control Classes." Points to a null-terminated string that represents the window name. Specifies the style of window being created. It can be any combination of the styles given in Table *** <$R[C#]> ***.3, Window Styles the control styles given in Table 4.4, Control Styles, or a combination of styles created by using the bitwise OR operator. , Specifies the initial -position of the window. For an overlapped or pop-up window, the parameter is the initial -coordinate of the window's upper-left corner (in screen coordinates). If this value is CW_USEDEFAULT, Windows selects the default position for the window's upper-left corner. For a child window, is the -coordinate of the upper-left corner of the window in the client area of its parent window. Specifies the initial -position of the window. For an overlapped window, the parameter is the initial -coordinate of the window's upper-left corner. For a pop-up window, is the -coordinate (in screen coordinates) of the upper-left corner of the pop-up window. For list-box controls, is the -coordinate of the upper-left corner of the control's client area. For a child window, is the -coordinate of the upper-left corner of the child window. All of these coordinates are for the window, not the window's client area. Specifies the width (in device units) of the window. For overlapped windows, the parameter is either the window's width (in screen coordinates) or CW_USEDEFAULT. If is CW_USEDEFAULT, Windows selects a default width and height for the window (the default width extends from the initial -position to the right edge of the screen, and the default height extends from the initial -position to the top of the icon area). Specifies the height (in device units) of the window. For overlapped windows, the parameter is the window's height in screen coordinates. If the parameter is CW_USEDEFAULT, Windows ignores . Identifies the parent or owner window of the window being created. A valid window handle must be supplied when creating a child window or an owned window. An owned window is an overlapped window that is destroyed when its owner window is destroyed, hidden when its owner is made iconic, and which is always displayed on top of its owner window. For pop-up windows, a handle can be supplied, but is not required. If the window does not have a parent or is not owned by another window, the parameter must be set to NULL. Identifies a menu or a child-window identifier. The meaning depends on the window style. For overlapped or pop-up windows, the parameter identifies the menu to be used with the window. It can be NULL, if the class menu is to be used. For child windows, specifies the child-window identifier, an integer value that is used by a dialog-box control to notify its parent of events (such as the EN_HSCROLL message). The child-window identifier is determined by the application and should be unique for all child windows with the same parent window. Identifies the instance of the module to be associated with the window. Points to a value that is passed to the window through the %CREATESTRUCT% structure referenced by the parameter of the WM_CREATE message. If an application is calling %CreateWindow% to create a multiple document interface (MDI) client window, must point to a %CLIENTCREATESTRUCT% structure. The return value identifies the new window. It is NULL if the window is not created. The %CreateWindow% function sends a WM_CREATE message to to the window procedure before it returns. For overlapped windows where the parameter is CW_USEDEFAULT, the parameter can be one of the show-style parameters described with the %ShowWindow% function, or, for the first overlapped window to be created by the application, it can be the parameter passed to the WinMain function. BUTTON Designates a small rectangular child window that represents a button the user can turn on or off by clicking it. Button controls can be used alone or in groups, and can either be labeled or appear without text. Button controls typically change appearance when the user clicks them. COMBOBOX Designates a control consisting of a selection field similar to an edit control plus a list box. The list box may be displayed at all times or may be dropped down when the user selects a pop box next to the selection field. Depending on the style of the combo box, the user can or cannot edit the contents of the selection field. If the list box is visible, typing characters into the selection box will cause the first list box entry that matches the characters typed to be highlighted. Conversely, selecting an item in the list box displays the selected text in the selection field. EDIT Designates a rectangular child window in which the user can enter text from the keyboard. The user selects the control, and gives it the input focus by clicking it or moving to it by using the ^TAB^ key. The user can enter text when the control displays a flashing caret. The mouse can be used to move the cursor and select characters to be replaced, or to position the cursor for inserting characters. The ^BACKSPACE^ key can be used to delete characters. Edit controls use the variable-pitch system font and display ANSI characters. Applications compiled to run with previous versions of Windows display text with a fixed-pitch system font unless they have been marked by the Windows 3.0 %MARK% utility with the %MEMORY FONT% option. An application can also send the WM_SETFONT message to the edit control to change the default font. Edit controls expand tab characters into as many space characters as are required to move the cursor to the next tab stop. Tab stops are assumed to be at every eighth character position. LISTBOX Designates a list of character strings. This control is used whenever an application needs to present a list of names, such as filenames, that the user can view and select. The user can select a string by pointing to it and clicking. When a string is selected, it is highlighted and a notification message is passed to the parent window. A vertical or horizontal scroll bar can be used with a list-box control to scroll lists that are too long for the control window. The list box automatically hides or shows the scroll bar as needed. MDICLIENT Designates an MDI client window. The MDI client window receives messages which control the MDI application's child windows. The recommended style bits are WS_CLIPCHILDREN and WS_CHILD. To create a scrollable MDI client window which allows the user to scroll MDI child windows into view, an application can also use the WS_HSCROLL and WS_VSCROLL styles. SCROLLBAR Designates a rectangle that contains a thumb and has direction arrows at both ends. The scroll bar sends a notification message to its parent window whenever the user clicks the control. The parent window is responsible for updating the thumb position, if necessary. Scroll-bar controls have the same appearance and function as scroll bars used in ordinary windows. Unlike scroll bars, scroll-bar controls can be positioned anywhere in a window and used whenever needed to provide scrolling input for a window. The scroll-bar class also includes size-box controls. A size-box control is a small rectangle that the user can expand to change the size of the window. STATIC Designates a simple text field, box, or rectangle that can be used to label, box, or separate other controls. Static controls take no input and provide no output. DS_LOCALEDIT Specifies that edit controls in the dialog box will use memory in the application's data segment. By default, all edit controls in dialog boxes use memory outside the application's data segment. This feature may be suppressed by adding the DS_LOCALEDIT flag to the STYLE command for the dialog box. If this flag is not used, EM_GETHANDLE and EM_SETHANDLE messages must not be used since the storage for the control is not in the application's data segment. This feature does not affect edit controls created outside of dialog boxes. DS_MODALFRAME Creates a dialog box with a modal dialog-box frame that can be combined with a title bar and System menu by specifying the WS_CAPTION and WS_SYSMENU styles. DS_NOIDLEMSG Suppresses WM_ENTERIDLE messages that Windows would otherwise send to the owner of the dialog box while the dialog box is displayed. DS_SYSMODAL Creates a system-modal dialog box. WS_BORDER Creates a window that has a border. WS_CAPTION Creates a window that has a title bar (implies the WS_BORDER style). This style cannot be used with the WS_DLGFRAME style. WS_CHILD Creates a child window. Cannot be used with the WS_POPUP style. WS_CHILDWINDOW Creates a child window that has the WS_CHILD style. WS_CLIPCHILDREN Excludes the area occupied by child windows when drawing within the parent window. Used when creating the parent window. WS_CLIPSIBLINGS Clips child windows relative to each other; that is, when a particular child window receives a paint message, the WS_CLIPSIBLINGS style clips all other overlapped child windows out of the region of the child window to be updated. (If WS_CLIPSIBLINGS is not given and child windows overlap, it is possible, when drawing within the client area of a child window, to draw within the client area of a neighboring child window.) For use with the WS_CHILD style only. WS_DISABLED Creates a window that is initially disabled. WS_DLGFRAME Creates a window with a double border but no title. WS_GROUP Specifies the first control of a group of controls in which the user can move from one control to the next by using the ^DIRECTION^ keys. All controls defined with the WS_GROUP style after the first control belong to the same group. The next control with the WS_GROUP style ends the style group and starts the next group (that is, one group ends where the next begins). Only dialog boxes use this style. WS_HSCROLL Creates a window that has a horizontal scroll bar. WS_ICONIC Creates a window that is initially iconic. For use with the WS_OVERLAPPED style only. WS_MAXIMIZE Creates a window of maximum size. WS_MAXIMIZEBOX Creates a window that has a maximize box. WS_MINIMIZE Creates a window of minimum size. WS_MINIMIZEBOX Creates a window that has a minimize box. WS_OVERLAPPED Creates an overlapped window. An overlapped window has a caption and a border. WS_OVERLAPPEDWINDOW Creates an overlapped window having the WS_OVERLAPPED, WS_CAPTION, WS_SYSMENU, WS_THICKFRAME, WS_MINIMIZEBOX, and WS_MAXIMIZEBOX styles. WS_POPUP Creates a pop-up window. Cannot be used with the WS_CHILD style. WS_POPUPWINDOW Creates a pop-up window that has the WS_BORDER, WS_POPUP, and WS_SYSMENU styles. The WS_CAPTION style must be combined with the WS_POPUPWINDOW style to make the system menu visible. WS_SYSMENU Creates a window that has a System-menu box in its title bar. Used only for windows with title bars. WS_TABSTOP Specifies one of any number of controls through which the user can move by using the ^TAB^ key. The ^TAB^ key moves the user to the next control specified by the WS_TABSTOP style. Only dialog boxes use this style. WS_THICKFRAME Creates a window with a thick frame that can be used to size the window. WS_VISIBLE Creates a window that is initially visible. This applies to overlapped and pop-up windows. For overlapped windows, the parameter is used as a %ShowWindow% function parameter. WS_VSCROLL Creates a window that has a vertical scroll bar. --*/ ULONG FASTCALL WU32CreateWindow(PVDMFRAME pFrame) { dwExStyle = 0; // this is a hack for MS Explorapedia -- see bug #189004 -- handle recycling // the app destroys this 1st hwnd it squirreled away -- which is the problem if(CURRENTPTD()->dwWOWCompatFlagsEx & WOWCF_CREATEBOGUSHWND) { // we detect this version by the offset of the return address if((pFrame->vpCSIP & 0x0000FFFF) == 0x8DBB) W32CreateWindow(pFrame); } return W32CreateWindow(pFrame); } /*++ HWND CreateWindowEx(, , , , , , , , , , , ) DWORD ; LPSTR ; LPSTR ; DWORD ; int ; int ; int ; int ; HWND ; HMENU ; HANDLE ; LPSTR ; The %CreateWindowEx% function creates an overlapped, pop-up, or child window with an extended style specified in the parameter. Otherwise, this function is identical to the %CreateWindow% function. See the description of the %CreateWindow% function for more information on creating a window and for a full descriptions of the other parameters of %CreateWindowEx%. Specifies the extended style of the window being created. It may be one of the following values: WS_EX_DLGMODALFRAME Designates a window with a double border that may optionally be created with a title bar by specifying the WS_CAPTION style flag in the parameter. WS_EX_NOPARENTNOTIFY Specifies that a child window created with this style will not send the WM_PARENTNOTIFY message to its parent window when the child window is created or destroyed. WS_EX_TOPMOST ??? WS_EX_ACCEPTFILES ??? Points to a null-terminated string containing the name of the window class. Points to a null-terminated string containing the window name. Specifies the style of window being created. Specifies the initial left side position of the window. Specifies the initial top position of the window. Specifies the width (in device units) of the window. Specifies the height (in device units) of the window. Identifies the parent or owner window of the window being created. Identifies a menu or a child-window identifier. The meaning depends on the window style. Identifies the instance of the module to be associated with the window. Contains any application-specific creation parameters. The window being created may access this data when the %CREATESTRUCT% structure is passed to the window via the WM_NCCREATE and WM_CREATE messages. The return value identifies the new window. It is NULL if the window is not created. The %CreateWindowEx% function sends the following messages to the window being created: WM_NCCREATE WM_NCCALCSIZE WM_CREATE WM_OTHERWINDOWCREATED --*/ ULONG FASTCALL WU32CreateWindowEx(PVDMFRAME pFrame) { register PCREATEWINDOWEX16 parg16; GETARGPTR(pFrame, sizeof(CREATEWINDOWEX16), parg16); /* * We've had problems with apps setting new (Win 5.0) bits, like WS_EX_LAYERED. * This causes Real Bad Problems with thos apps. Keep Wow apps from doing that. * FritzS */ dwExStyle = DWORD32(parg16->f1) & WS_EX_VALID40; FREEARGPTR(parg16); RETURN(W32CreateWindow(pFrame)); } #ifdef FE_SB // HACK for Director 4.0J #define MAXNUMOFSTR 20 typedef struct _DIRECTOR { HWND hwnd; // handle of director window UCHAR orgstr[2]; // application oreginal string } DIRECTOR, *PDIRECTOR; DIRECTOR director[MAXNUMOFSTR]; #endif // FE_SB ULONG FASTCALL W32CreateWindow(PVDMFRAME pFrame) { PSZ psz1; PSZ pszClass; PSZ psz2; HWND hwnd32; HMENU hmenu32; register PCREATEWINDOW16 parg16; CLIENTCREATESTRUCT clientcreatestruct; LPVOID vpparam; CHAR szAtomName[WOWCLASS_ATOM_NAME]; DWORD dwStyle; #ifdef FE_SB PDIRECTOR pdirector; unsigned char * pszTmp; #endif // FE_SB GETARGPTR(pFrame, sizeof(CREATEWINDOW16), parg16); GETPSZIDPTR(parg16->vpszClass, psz1); GETPSZPTR(parg16->vpszWindow, psz2); if ( HIWORD(psz1) == 0 ) { pszClass = szAtomName; GetAtomName( (ATOM)psz1, pszClass, WOWCLASS_ATOM_NAME ); } else { pszClass = psz1; } // // For child windows, the hMenu parameter is just a child window ID // if (DWORD32(parg16->dwStyle) & WS_CHILD) { hmenu32 = (HMENU)parg16->hMenu; // Invalidate SendDlgItemMessage cache hdlgSDIMCached = NULL ; } else hmenu32 = (HMENU32(parg16->hMenu)); if (WOW32_stricmp(pszClass, "MDIClient")) { vpparam = (LPVOID)DWORD32(parg16->vpParam); } else { GETCLIENTCREATESTRUCT16(parg16->vpParam, &clientcreatestruct ); vpparam = &clientcreatestruct; } dwStyle = DWORD32(parg16->dwStyle); #ifdef FE_SB if (CURRENTPTD()->dwWOWCompatFlagsFE & WOWCF_FE_DIRECTOR_START && psz2) { pdirector = director; while (pdirector->hwnd) pdirector++; for ((PSZ)pszTmp = psz2; *pszTmp; pszTmp++) { if (IsDBCSLeadByte(*pszTmp)) { if (*(pszTmp+1) < 0x40 || *(pszTmp+1) > 0xfc) { pdirector->orgstr[0] = *pszTmp; pdirector->orgstr[1] = *(pszTmp+1); *(pszTmp+1) = *pszTmp = 0x7c; pdirector++; } pszTmp++; } } } #endif // FE_SB hwnd32 = (pfnOut.pfnCsCreateWindowEx)( dwExStyle, pszClass, psz2, dwStyle, INT32DEFAULT(parg16->x), INT32DEFAULT(parg16->y), INT32DEFAULT(parg16->cx), INT32DEFAULT(parg16->cy), HWND32(parg16->hwndParent), hmenu32, HMODINST32(parg16->hInstance), vpparam, CW_FLAGS_ANSI); #ifdef FE_SB if (CURRENTPTD()->dwWOWCompatFlagsFE & WOWCF_FE_DIRECTOR_START) { pdirector = director; for (; pdirector->orgstr[0]; pdirector++) { if (hwnd32) if (!pdirector->hwnd) pdirector->hwnd = hwnd32; else if (!pdirector->hwnd) pdirector->orgstr[1] = pdirector->orgstr[0] = 0; } } #endif // FE_SB #ifdef DEBUG if (hwnd32) { CHAR szClassName[80]; LOGDEBUG(LOG_WARNING,(" Window %04x created on class = %s\n", GETHWND16(hwnd32), (GetClassName(hwnd32, szClassName, sizeof(szClassName)) ? szClassName : "Unknown"))); } else { LOGDEBUG(LOG_WARNING,(" CreateWindow failed, class = %s\n", pszClass)); } #endif FREEPSZPTR(psz1); FREEPSZPTR(psz2); FREEARGPTR(parg16); RETURN((ULONG) GETHWND16(hwnd32)); } /*++ HANDLE BeginDeferWindowPos() int ; The %BeginDeferWindowPos% function allocates memory to contain a multiple window-position data structure and returns a handle to the structure. The %DeferWindowPos% function fills this structure with information about the target position for a window that is about to be moved. The %EndDeferWindowPos% function accepts this structure and instantaneously repositions the windows using the information stored in the structure. Specifies the initial number of windows for which position information is to be stored in the structure. The %DeferWindowPos% function increases the size of the structure if needed. The return value identifies the multiple window-position structure. The return value is NULL if system resources are not available to allocate the structure. --*/ ULONG FASTCALL WU32DeferWindowPos(PVDMFRAME pFrame) { ULONG ul = 0; HDWP h32; register PDEFERWINDOWPOS16 parg16; GETARGPTR(pFrame, sizeof(DEFERWINDOWPOS16), parg16); h32 = HDWP32(parg16->f1); if ( h32 ) { ul = (ULONG) DeferWindowPos( h32, HWND32(parg16->f2), HWNDIA32(parg16->f3), INT32(parg16->f4), INT32(parg16->f5), INT32(parg16->f6), INT32(parg16->f7), WORD32(parg16->f8) & SWP_VALID ); } else { goto WDWP_error; } if (ul != (ULONG) h32) { FREEHDWP16(parg16->f1); ul = GETHDWP16(ul); LOGDEBUG (12, ("WOW::DeferWindowsPos: ul = %08x, h32 = %08x\n", ul, h32)); } else { ul = parg16->f1; LOGDEBUG (12, ("WOW::DeferWindowsPos: ul = %08x, parg = %08x\n", ul, parg16->f1)); } WDWP_error: FREEARGPTR(parg16); RETURN(ul); } /*++ BOOL DestroyWindow() HWND ; The %DestroyWindow% function destroys the specified window. The %DestroyWindow% function sends appropriate messages to the window to deactivate it and remove the input focus. It also destroys the window's menu, flushes the application queue, destroys outstanding timers, removes clipboard ownership, and breaks the clipboard-viewer chain, if the window is at the top of the viewer chain. It sends WM_DESTROY and WM_NCDESTROY messages to the window. If the given window is the parent of any windows, these child windows are automatically destroyed when the parent window is destroyed. The %DestroyWindow% function destroys child windows first, and then the window itself. The %DestroyWindow% function also destroys modeless dialog boxes created by the %CreateDialog% function. Identifies the window to be destroyed. The return value specifies whether or not the specified window is destroyed. It is TRUE if the window is destroyed. Otherwise, it is FALSE. If the window being destroyed is a top-level window, a WM_OTHERWINDOWDESTROYED message will be broadcast to all top-level windows. If the window being destroyed is a child window and does not have the WS_NOPARENTNOTIFY style set, then a WM_PARENTNOTIFY message is sent to the parent. --*/ ULONG FASTCALL WU32DestroyWindow(PVDMFRAME pFrame) { ULONG ul; register PDESTROYWINDOW16 parg16; GETARGPTR(pFrame, sizeof(DESTROYWINDOW16), parg16); ul = GETBOOL16(DestroyWindow(HWND32(parg16->f1))); // Invalidate SendDlgItemMessage cache hdlgSDIMCached = NULL ; #ifdef FE_SB if (CURRENTPTD()->dwWOWCompatFlagsFE & WOWCF_FE_DIRECTOR_START) { PDIRECTOR pdirector = director; for (; pdirector->hwnd; ) { if (parg16->f1 == (WORD)pdirector->hwnd) { PDIRECTOR ptmp = pdirector; do { ptmp->hwnd = (ptmp+1)->hwnd; ptmp->orgstr[0] = (ptmp+1)->orgstr[0]; ptmp->orgstr[1] = (ptmp+1)->orgstr[1]; ptmp++; } while (ptmp->hwnd); } else pdirector++; } } #endif // FE_SB FREEARGPTR(parg16); RETURN(ul); } /*++ void EndDeferWindowPos() HANDLE ; The %EndDeferWindowPos% function simultaneously updates the position and size of one or more windows in a single screen-refresh cycle. The parameter identifies a multiple window-position structure that contains the update information for the windows. The %DeferWindowPos% function stores the update information in the structure; the %BeginDeferWindowPos% function creates the initial structure used by these functions. Identifies a multiple window-position structure that contains size and position information for one or more windows. This structure is returned by the %BeginDeferWindowPos% function or the most recent call to the %DeferWindowPos% function. This function does not return a value. --*/ ULONG FASTCALL WU32EndDeferWindowPos(PVDMFRAME pFrame) { ULONG ul; register PENDDEFERWINDOWPOS16 parg16; GETARGPTR(pFrame, sizeof(ENDDEFERWINDOWPOS16), parg16); ul = (ULONG)EndDeferWindowPos(HDWP32(parg16->f1)); FREEHDWP16(parg16->f1); FREEARGPTR(parg16); RETURN(ul); } BOOL W32EnumWindowFunc(HWND hwnd, DWORD lParam) { BOOL fReturn; PARM16 Parm16; WOW32ASSERT(lParam); Parm16.EnumWndProc.hwnd = GETHWND16(hwnd); STOREDWORD(Parm16.EnumWndProc.lParam, ((PWNDDATA)lParam)->dwUserWndParam); CallBack16(RET_ENUMWINDOWPROC, &Parm16, ((PWNDDATA)lParam)->vpfnEnumWndProc, (PVPVOID)&fReturn); return (BOOL16)fReturn; } /*++ BOOL EnumChildWindows(, , ) HWND ; FARPROC ; DWORD ; The %EnumChildWindows% function enumerates the child windows that belong to the specified parent window by passing the handle of each child window, in turn, to the application-supplied callback function pointed to by the parameter. The %EnumChildWindows% function continues to enumerate windows until the called function returns zero or until the last child window has been enumerated. Identifies the parent window whose child windows are to be enumerated. Is the procedure-instance address of the callback function. Specifies the value to be passed to the callback function for the application's use. The return value is TRUE if all child windows have been enumerated. Otherwise, it is FALSE. This function does not enumerate pop-up windows that belong to the parameter. The address passed as the parameter must be created by using the %MakeProcInstance% function. The callback function must use the Pascal calling convention and must be declared %FAR%. Callback Function: BOOL FAR PASCAL (, ) HWND ; DWORD ; is a placeholder for the application-supplied function name. The actual name must be exported by including it in an %EXPORTS% statement in the application's module-definition file. Identifies the window handle. Specifies the long parameter argument of the %EnumChildWindows% function. The callback function should return TRUE to continue enumeration; it should return FALSE to stop enumeration. --*/ ULONG FASTCALL WU32EnumChildWindows(PVDMFRAME pFrame) { ULONG ul; WNDDATA WndData; register PENUMCHILDWINDOWS16 parg16; GETARGPTR(pFrame, sizeof(ENUMCHILDWINDOWS16), parg16); WndData.vpfnEnumWndProc = DWORD32(parg16->f2); WndData.dwUserWndParam = DWORD32(parg16->f3); ul = GETBOOL16(EnumChildWindows(HWND32(parg16->f1), (WNDENUMPROC)W32EnumWindowFunc, (LONG)&WndData)); FREEARGPTR(parg16); RETURN(ul); } /*++ BOOL EnumTaskWindows(, , ) HANDLE ; FARPROC ; DWORD ; The %EnumTaskWindows% function enumerates all windows associated with the parameter, which is returned by the %GetCurrentTask% function. (A task is any program that executes as an independent unit. All applications are executed as tasks and each instance of an application is a task.) The enumeration terminates when the callback function, pointed to by , returns FALSE. Identifies the specified task. The GetCurrentTask function returns this handle. Specifies the procedure-instance address of the window's callback function. Specifies the 32-bit value that contains additional parameters that are sent to the callback function pointed to by . The return value specifies the outcome of the function. It is TRUE if all the windows associated with a particular task are enumerated. Otherwise, it is FALSE. The callback function must use the Pascal calling convention and must be declared %FAR%. The callback function must have the following form: Callback Function: BOOL FAR PASCAL (, ) HWND ; DWORD ; is a placeholder for the application-supplied function name. The actual name must be exported by including it in an %EXPORTS% statement in the application's module-definition file. Identifies a window associated with the current task. Specifies the same argument that was passed to the %EnumTaskWindows% function. The callback function can carry out any desired task. It must return TRUE to continue enumeration, or FALSE to stop it. --*/ ULONG FASTCALL WU32EnumTaskWindows(PVDMFRAME pFrame) { ULONG ul; WNDDATA WndData; register PENUMTASKWINDOWS16 parg16; GETARGPTR(pFrame, sizeof(ENUMTASKWINDOWS16), parg16); WndData.vpfnEnumWndProc = DWORD32(parg16->f2); WndData.dwUserWndParam = DWORD32(parg16->f3); ul = GETBOOL16(EnumThreadWindows(THREADID32(parg16->f1), (WNDENUMPROC)W32EnumWindowFunc, (LONG)&WndData)); FREEARGPTR(parg16); RETURN(ul); } /*++ BOOL EnumWindows(, ) FARPROC ; DWORD ; The %EnumWindows% function enumerates all parent windows on the screen by passing the handle of each window, in turn, to the callback function pointed to by the parameter. Child windows are not enumerated. The %EnumWindows% function continues to enumerate windows until the called function returns zero or until the last window has been enumerated. Is the procedure-instance address of the callback function. See the following "Comments" section for details. Specifies the value to be passed to the callback function for the application's use. The return value is TRUE if all windows have been enumerated. Otherwise, it is FALSE. The address passed as the parameter must be created by using the %MakeProcInstance% function. The callback function must use the Pascal calling convention and must be declared %FAR%. The callback function must have the following form: Callback Function: BOOL FAR PASCAL (, ) HWND ; DWORD ; is a placeholder for the application-supplied function name. The actual name must be exported by including it in an %EXPORTS% statement in the application's module-definition file. Identifies the window handle. Specifies the 32-bit argument of the %EnumWindows% function. The function must return TRUE to continue enumeration, or FALSE to stop it. --*/ ULONG FASTCALL WU32EnumWindows(PVDMFRAME pFrame) { ULONG ul; WNDDATA WndData; register PENUMWINDOWS16 parg16; GETARGPTR(pFrame, sizeof(ENUMWINDOWS16), parg16); WndData.vpfnEnumWndProc = DWORD32(parg16->f1); WndData.dwUserWndParam = DWORD32(parg16->f2); ul = GETBOOL16(EnumWindows((WNDENUMPROC)W32EnumWindowFunc, (LONG)&WndData)); FREEARGPTR(parg16); RETURN(ul); } /*++ HWND FindWindow(, ) LPSTR ; LPSTR ; The %FindWindow% function returns the handle of the window whose class is given by the parameter and whose window name, or caption, is given by the parameter. This function does not search child windows. Points to a null-terminated string that specifies the window's class name. If lpClassName is NULL, all class names match. Points to a null-terminated string that specifies the window name (the window's text caption). If is NULL, all window names match. The return value identifies the window that has the specified class name and window name. It is NULL if no such window is found. --*/ ULONG FASTCALL WU32FindWindow(PVDMFRAME pFrame) { ULONG ul; PSZ psz1; PSZ psz2; PSZ pszClass; register PFINDWINDOW16 parg16; CHAR szAtomName[WOWCLASS_ATOM_NAME]; GETARGPTR(pFrame, sizeof(FINDWINDOW16), parg16); GETPSZIDPTR(parg16->f1, psz1); GETOPTPTR(parg16->f2, 0, psz2); if ( psz1 && HIWORD(psz1) == 0 ) { pszClass = szAtomName; GetAtomName( (ATOM)psz1, pszClass, WOWCLASS_ATOM_NAME ); } else { pszClass = psz1; } // Some apps during their installation try to find Program Manager's // window handle by doing FindWindow. Once they get the window handle // then they do DDE with program manager to create app group. An app // can call FindWindow in one of the three ways. // // FindWindow ("progman", NULL) // FindWindow (NULL, "program manager") // FindWindow ("progman", "program manager") // // The case 2 and 3 of the above will fail on NT because the title of // the program manager window under NT is "Program Manager - xxx\yyy". // Where xxx is the domain name and yyy is the user name. // // To provide the Win 3.1 compatibility to the 16 bit apps, we check for // the above cases. For these cases we call FindWindow ("progman", NULL) // to get the window handle of the program manager's top level window. // // AmiPro calls FindWindow as case two of the above to find the window // handle of the program manager to do DDE with. // ChandanC, 5/18/93 // // Some apps send WM_SYSCOMMAND - SC_CLOSE messages to program manager // with the shift key down to get it to save its settings. They do // this by 1st finding the program manager window... if ((pszClass && !WOW32_stricmp (pszClass, "progman")) || (psz2 && !WOW32_stricmp (psz2, "program manager"))) { ul = GETHWND16(FindWindow("progman", NULL)); // Some apps send WM_SYSCOMMAND - SC_CLOSE messages to program manager // with the shift key down to get it to save its settings. They do // this by 1st finding the program manager window... // So, save this window handle for later. hwndProgman = (HWND)ul; } else { ul = GETHWND16(FindWindow(pszClass, psz2)); } FREEPSZPTR(psz1); FREEPSZPTR(psz2); FREEARGPTR(parg16); RETURN(ul); } /*++ HWND GetActiveWindow(VOID) The %GetActiveWindow% function retrieves the window handle of the active window. The active window is either the window that has the current input focus, or the window explicitly made active by the %SetActiveWindow% function. This function has no parameters. The return value identifies the active window. --*/ ULONG FASTCALL WU32GetActiveWindow(PVDMFRAME pFrame) { ULONG ul; UNREFERENCED_PARAMETER(pFrame); ul = (ULONG)GetActiveWindow(); // GetActiveWindow returned NULL. So try GetForegroundWindow. // Some apps like Toolbook donot paint if GetActiveWindow returns NULL. // // Alternatively we can return the wowexec's window handle.. basically // something NON-NULL // // NOTE: Win31 and Win32 GetActiveWindow differ semantically and hence // the need for fooling with this API. // // - Nanduri Ramakrishna // // We need to do something different now, since JimA recently changed // GetForegroundWindow() so that it can return NULL if the caller doesn't // have access to the foreground window. // // - Dave Hart // // When GetForegroundWindow() returns null, now we return wowexec's // window handle. This theoretically could have some strange effects // since it is a hidden window. It might be better to return, say, // the desktop window. However, for reasons currently unknown, // this screws a shutdown scenario with Micrografix Designer (it // gpfaults). // - Neil Sandlin if (ul == (ULONG)NULL) { ul = (ULONG)GetForegroundWindow(); } if (ul == (ULONG)NULL) { ul = (ULONG)ghwndShell; } ul = GETHWND16(ul); WOW32ASSERT(ul); RETURN(ul); } /*++ HDC GetWindowDC() HWND ; The %GetWindowDC% function retrieves the display context for the entire window, including caption bar, menus, and scroll bars. A window display context permits painting anywhere in a window, including the caption bar, menus, and scroll bars, since the origin of the context is the upper-left corner of the window instead of the client area. %GetWindowDC% assigns default attributes to the display context each time it retrieves the context. Previous attributes are lost. Identifies the window whose display context is to be retrieved. The return value identifies the display context for the given window if the function is successful. Otherwise, it is NULL. The %GetWindowDC% function is intended to be used for special painting effects within a window's nonclient area. Painting in nonclient areas of any window is not recommended. The %GetSystemMetrics% function can be used to retrieve the dimensions of various parts of the nonclient area, such as the caption bar, menu, and scroll bars. After painting is complete, the %ReleaseDC% function must be called to release the display context. Failure to release a window display context will have serious effects on painting requested by applications. --*/ ULONG FASTCALL WU32GetWindowDC(PVDMFRAME pFrame) { ULONG ul; register PGETWINDOWDC16 parg16; HAND16 htask16 = pFrame->wTDB; GETARGPTR(pFrame, sizeof(GETWINDOWDC16), parg16); ReleaseCachedDCs(htask16, parg16->f1, 0, 0, SRCHDC_TASK16_HWND16); ul = GETHDC16(GetWindowDC( HWND32(parg16->f1) )); if (ul) StoreDC(htask16, parg16->f1, (HAND16)ul); FREEARGPTR(parg16); RETURN(ul); } /*++ LONG GetWindowLong(, ) HWND ; int ; The %GetWindowLong% function retrieves information about the window identified by the parameter. Identifies the window. Specifies the byte offset of the value to be retrieved. It can also be one of the following values: GWL_EXSTYLE Extended window style. GWL_STYLE Window style GWL_WNDPROC Long pointer to the window function The return value specifies information about the given window. To access any extra four-byte values allocated when the window-class structure was created, use a positive byte offset as the index specified by the parameter, starting at zero for the first four-byte value in the extra space, 4 for the next four-byte value and so on. --*/ ULONG FASTCALL WU32GetWindowLong(PVDMFRAME pFrame) { ULONG ul; INT iOffset; register PWW pww; register PGETWINDOWLONG16 parg16; GETARGPTR(pFrame, sizeof(GETWINDOWLONG16), parg16); // Make sure Win32 didn't change offsets for GWL constants #if (GWL_WNDPROC != (-4) || GWL_STYLE != (-16) || GWL_EXSTYLE != (-20) || DWL_MSGRESULT != (0)) #error Win16/Win32 GWL constants differ #endif #ifndef WIN16_GWW_HINSTANCE #define WIN16_GWW_HINSTANCE (-6) #define WIN16_GWW_HWNDPARENT (-8) #define WIN16_GWW_ID (-12) #endif // Make sure the 16-bit app is requesting allowable offsets iOffset = INT32(parg16->f2); WOW32ASSERT(iOffset >= 0 || iOffset == GWL_WNDPROC || iOffset == GWL_STYLE || iOffset == GWL_EXSTYLE || iOffset == WIN16_GWW_HINSTANCE || iOffset == WIN16_GWW_HWNDPARENT || iOffset == WIN16_GWW_ID ); ul = 0; switch( iOffset ) { case DWL_DLGPROC: case GWL_WNDPROC: if (pww = FindPWW(HWND32(parg16->f1))) { DWORD dwWndProc32Cur; if ((iOffset == DWL_DLGPROC) && !(pww->state & WF_DIALOG_WINDOW)) { goto defgwl; } dwWndProc32Cur = GetWindowLong(HWND32(parg16->f1), iOffset); if (IsWOWProc (dwWndProc32Cur)) { if ( HIWORD(dwWndProc32Cur) == WNDPROC_HANDLE ) { /* ** Has a 32-bit WindowProc that is a handle-based value ** (if it needs a 32-bit Ansi-Unicode transition, or ** vice versa.) */ ul = GetThunkWindowProc( dwWndProc32Cur, NULL, pww, HWND32(parg16->f1) ); } else { /* ** Has a WOW WindowProc */ //Unmark the proc and restore the high bits from rpl field UnMarkWOWProc (dwWndProc32Cur,ul); } } else { /* ** Has a 32-bit WindowProc */ if (dwWndProc32Cur) { ul = GetThunkWindowProc( dwWndProc32Cur, NULL, pww, HWND32(parg16->f1) ); } } } break; case GWL_EXSTYLE: // Lotus Approach needs the WS_EX_TOPMOST bit cleared on // GetWindowLong of NETDDE AGENT window. ul = GetWindowLong(HWND32(parg16->f1), iOffset); if (CURRENTPTD()->dwWOWCompatFlags & WOWCF_GWLCLRTOPMOST) { char szBuf[40]; if (GetClassName(HWND32(parg16->f1), szBuf, sizeof(szBuf))) { if (!WOW32_stricmp(szBuf, "NDDEAgnt")) { ul &= !WS_EX_TOPMOST; } } } break; defgwl: default: // This is a real HACK for PowerBuild 3.0. Before we change the offset // from 2 to 4, we nneed to make sure that we are doing it correctly for // this specific class. // The class in this case is "PaList". // // ChandanC Marh 9th 1994 // if (iOffset == 2) { if (CURRENTPTD()->dwWOWCompatFlags & WOWCF_GWLINDEX2TO4) { char Buffer[40]; if (GetClassName (HWND32(parg16->f1), Buffer, sizeof(Buffer))) { if (!WOW32_stricmp (Buffer, "PaList")) { iOffset = 4; } } } } ul = GetWindowLong(HWND32(parg16->f1), iOffset); break; case WIN16_GWW_HINSTANCE: /* ** We might need to set the high 16-bits to ** some mysterious value (See Win 3.1 WND structure) */ ul = GetGWW_HINSTANCE(HWND32(parg16->f1)); break; case WIN16_GWW_HWNDPARENT: /* ** We might need to set the high 16-bits to ** some mysterious value (See Win 3.1 WND structure) */ ul = (ULONG)GETHWND16((HAND32)GetWindowLong(HWND32(parg16->f1), GWL_HWNDPARENT)); break; case WIN16_GWW_ID: /* ** We might need to set the high 16-bits to ** some mysterious value (See Win 3.1 WND structure) */ ul = (ULONG)((WORD)GetWindowLong(HWND32(parg16->f1), GWL_ID)); break; } FREEARGPTR(parg16); RETURN(ul); } /*++ HANDLE GetWindowTask() HWND ; The %GetWindowTask% function searches for the handle of a task associated with the parameter. A task is any program that executes as an independent unit. All applications are executed as tasks. Each instance of an application is a task. Identifies the window for which a task handle is retrieved. The return value identifies the task associated with a particular window. --*/ ULONG FASTCALL WU32GetWindowTask(PVDMFRAME pFrame) { register PGETWINDOWTASK16 parg16; DWORD dwThreadID, dwProcessID; PTD ptd; GETARGPTR(pFrame, sizeof(GETWINDOWTASK16), parg16); dwThreadID = GetWindowThreadProcessId(HWND32(parg16->f1), &dwProcessID); // // return corresponding htask16 if window belongs to a WOW thread // else return WowExec's htask. // ptd = ThreadProcID32toPTD(dwThreadID, dwProcessID); if (ptd == NULL) { ptd = gptdShell; } FREEARGPTR(parg16); return (ULONG)ptd->htask16; } /*++ int GetWindowText(, , ) HWND ; LPSTR ; int ; The %GetWindowText% function copies the given window's caption title (if it has one) into the buffer pointed to by the parameter. If the parameter identifies a control, the %GetWindowText% function copies the text within the control instead of copying the caption. Identifies the window or control whose caption or text is to be copied. Points to the buffer that is to receive the copied string. Specifies the maximum number of characters to be copied to the buffer. If the string is longer than the number of characters specified in the parameter, it is truncated. The return value specifies the length of the copied string. It is zero if the window has no caption or if the caption is empty. This function causes a WM_GETTEXT message to be sent to the given window or control. --*/ ULONG FASTCALL WU32GetWindowText(PVDMFRAME pFrame) { ULONG ul; VPVOID vp; PSZ psz2; register PGETWINDOWTEXT16 parg16; GETARGPTR(pFrame, sizeof(GETWINDOWTEXT16), parg16); ALLOCVDMPTR(parg16->f2, parg16->f3, psz2); vp = parg16->f2; ul = GETINT16(GetWindowText(HWND32(parg16->f1), psz2, WORD32(parg16->f3))); // special case to keep common dialog structs in sync (see wcommdlg.c) Check_ComDlg_pszptr(CURRENTPTD()->CommDlgTd, vp); FLUSHVDMPTR(parg16->f2, (USHORT)ul+1, psz2); FREEVDMPTR(psz2); FREEARGPTR(parg16); RETURN(ul); } /*++ WORD GetWindowWord(, ) HWND ; int ; The %GetWindowWord% function retrieves information about the window identified by . Identifies the window. Specifies the byte offset of the value to be retrieved. It can also be one of the following values: GWL_HINSTANCE Instance handle of the module that owns the window. GWL_HWNDPARENT Handle of the parent window, if any. The %SetParent% function changes the parent window of a child window. An application should not call the %SetWindowLong% function to change the parent of a child window. GWL_ID Control ID of the child window. The return value specifies information about the given window. To access any extra two-byte values allocated when the window-class structure was created, use a positive byte offset as the index specified by the parameter, starting at zero for the first two-byte value in the extra space, 2 for the next two-byte value and so on. --*/ ULONG FASTCALL WU32GetWindowWord(PVDMFRAME pFrame) { ULONG ul; HWND hwnd; INT iOffset; PWW pww; PGETWINDOWWORD16 parg16; GETARGPTR(pFrame, sizeof(GETWINDOWWORD16), parg16); // Make sure Win32 didn't change offsets #if (GWL_HINSTANCE != (-6) || GWL_HWNDPARENT != (-8) || GWL_ID != (-12)) #error Win16/Win32 window-word constants differ #endif // Make sure the 16-bit app is requesting allowable offsets iOffset = INT32(parg16->f2); WOW32ASSERT(iOffset >= 0 || iOffset == GWL_HINSTANCE || iOffset == GWL_STYLE || iOffset == GWL_HWNDPARENT || iOffset == GWL_ID); hwnd = HWND32(parg16->f1); switch(iOffset) { case GWL_STYLE: // Wordperfect for windows calls GetWindowWord with GWL_STYLE. ul = (ULONG)GetWindowLong(hwnd, iOffset); break; case GWL_HINSTANCE: ul = GetGWW_HINSTANCE(hwnd); break; case GWL_HWNDPARENT: ul = (ULONG)GETHWND16((HAND32)GetWindowLong(hwnd, iOffset)); break; case GWL_ID: ul = GetWindowLong(hwnd, iOffset); if (!(GetWindowLong(hwnd, GWL_STYLE) & WS_CHILD)) { ul = (ULONG)GETHMENU16(ul); } break; // Under Windows index 4 of a static control could be the icon case 4: pww = FindPWW(hwnd); if (pww) { if (((pww->style & SS_TYPEMASK) == SS_ICON) && (GETICLASS(pww, hwnd) == WOWCLASS_STATIC)) { ul = SendMessage(hwnd, STM_GETICON, 0, 0); return GETHICON16(ul); } } // FALL THROUGH! default: // // Offset is non-negative, this is the cbWndExtra bytes that // are fair game. // // // Gross app hack for Adonis' Clip-Art Window Shopper online // clipart software that comes with CA-Cricket Presents. // These people SetWindowWord(hwnd, 3, wWhatever), thereby // overwriting the 4th and 5th bytes of per-window data. // The edit control itself only uses the first 2 bytes // on 3.1, and has 6 bytes reserved, so this works. On // NT the first 4 bytes are used (32-bit handle), and so // this P.O.S. overwrites the high byte of the handle. // So if it's the compatibility flag is set and the class name // matches the one this bogus app uses, and it's storing a // word at offset 3, change it to 4. This is safe because // the NT edit control only uses the first 4 of its 6 // reserved window extra bytes. // if (3 == iOffset && (CURRENTPTD()->dwWOWCompatFlags & WOWCF_EDITCTRLWNDWORDS)) { char szClassName[30]; if (GetClassName(hwnd, szClassName, sizeof(szClassName)) && !WOW32_strcmp(szClassName, "SuperPassEdit")) { iOffset = 4; LOGDEBUG(LOG_ALWAYS,("WOW WU32GetWindowWord: SHOPPER hack triggered, using offset 4, rc = %x.\n", GetWindowWord(hwnd, iOffset))); } } ul = GetWindowWord(hwnd, iOffset); break; } FREEARGPTR(parg16); RETURN(ul); } // // GetGWW_HINSTANCE is a common implementation for GetWindowWord(GWW_HINSTANCE) // and GetWindowLong(GWW_HINSTANCE). // ULONG FASTCALL GetGWW_HINSTANCE(HWND hwnd) { DWORD dwProcessID32, dwThreadID32; ULONG ul; PWOAINST pWOA; PTD ptd; HTASK16 htask16; dwProcessID32 = (DWORD)-1; dwThreadID32 = GetWindowThreadProcessId( hwnd, &dwProcessID32 ); ul = (ULONG)GetWindowLong(hwnd, GWL_HINSTANCE); if ( ISINST16(ul) ) { // // This could be a valid HINST in another WOW VDM, // in which case we need to hide it from this VDM. // if (dwProcessID32 != GetCurrentProcessId() && dwProcessID32 != (DWORD)-1) { ul = (ULONG)ghInstanceUser32; goto ElseClause; } } else { ElseClause: // here if ul = NULL or ul = 0xZZZZ0000 // // if (ul is 0xZZZZ0000) return 16bit user.exe instance. // PowerBuilder 3.0 does // hInst = GetWindowWord(Dialog, GWL_HINSTANCE) // hIcon = CreateIcon(... hInst ...); // CreateIcon will fail if hInst is invalid (say BOGUSGDT). So // we return 16bit user.exe hinstance in all such cases. // // Some 32-bit applications put 0 in the HINSTANCE // stuff for their window (its optional for 32-bit windows). // // // Check if this window belongs to a task we spawned via // WinOldAp, if so, return WinOldAp's hmodule. // ptd = CURRENTPTD(); EnterCriticalSection(&ptd->csTD); pWOA = ptd->pWOAList; while (pWOA && pWOA->dwChildProcessID != dwProcessID32) { pWOA = pWOA->pNext; } if (pWOA) { ul = pWOA->ptdWOA->hInst16; LOGDEBUG(LOG_ALWAYS, ("WOW32 GetWindowWord(0x%x, GWW_HINSTANCE) returning 0x%04x\n", hwnd, ul)); } else { ul = (ul) ? gUser16hInstance : ul; if (cHtaskAliasCount != 0 ) { // // Must be some 32-bit process, not a wow app's window // if ( dwThreadID32 != 0 ) { htask16 = FindHtaskAlias( dwThreadID32 ); if ( htask16 != 0 ) { ul = (ULONG)htask16; } } } } LeaveCriticalSection(&ptd->csTD); } return ul; } /*++ UINT MenuItemFromPoint(, , ) HWND ; HMENU ; POINT ; The %MenuItemFromPoint% function determines which, if any, of the menu items belonging to the given parent window contains the specified point. Identifies the parent window. Specifies the client coordinates of the point to be tested. The return value identifies the menu item that contains the point. It is -1 if the given point lies outside the parent window. If the point is within the parent window but is not contained within any menu item, -1 is returned. --*/ ULONG FASTCALL WU32MenuItemFromPoint(PVDMFRAME pFrame) { ULONG ul; POINT pt32; register PMENUITEMFROMPOINT16 parg16; GETARGPTR(pFrame, sizeof(MENUITEMFROMPOINT16), parg16); COPYPOINT16(parg16->ptScreen, pt32); ul = MenuItemFromPoint(HWND32(parg16->hwnd), HMENU32(parg16->hmenu), pt32); FREEARGPTR(parg16); RETURN(ul); } /*++ BOOL MoveWindow(, , , , , ) HWND ; int ; int ; int ; int ; BOOL ; The %MoveWindow% function changes the position and dimensions of a window. Identifies the window to change. Specifies the new position of the left side of the window. Specifies the new position of the top of the window. Specifies the new width of the window. Specifies the new height of the window. Specifies whether or not the window is to be repainted. If this parameter is TRUE, the window is repainted. The return value is nonzero if the function is successful. Otherwise it is zero. (updated for Win3.1 compatability -- this returned void for Win3.0) For top-level windows the and parameters are relative to the upper-left corner of the screen. For child windows, they are relative to the upper-left corner of the parent window's client area. The %MoveWindow% function sends a WM_GETMINMAXINFO message to the window being moved. This gives the window being moved the opportunity to modify the default values for the largest and smallest possible windows. If the parameters to the %MoveWindow% function exceed these values, the values will be replaced by the minimum or maximum values specified in the WM_GETMINMAXINFO message. --*/ ULONG FASTCALL WU32MoveWindow(PVDMFRAME pFrame) { ULONG ul; register PMOVEWINDOW16 parg16; GETARGPTR(pFrame, sizeof(MOVEWINDOW16), parg16); if (CURRENTPTD()->dwWOWCompatFlags & WOWCF_DBASEHANDLEBUG) { RECT ParentRect; RECT ScreenRect; GetWindowRect(GetDesktopWindow(), &ScreenRect); if ((INT32(parg16->f2) > ScreenRect.right) || (INT32(parg16->f3) > ScreenRect.bottom) || (INT32(parg16->f4) > ScreenRect.right) || (INT32(parg16->f5) > ScreenRect.bottom)) { int x, y, cx, cy; GetWindowRect(GetParent(HWND32(parg16->f1)), &ParentRect); x = ParentRect.left; y = ParentRect.top; cx = ParentRect.right - ParentRect.left; cy = ParentRect.bottom - ParentRect.top; ul = GETBOOL16(MoveWindow(HWND32(parg16->f1), x, y, cx, cy, BOOL32(parg16->f6))); FREEARGPTR(parg16); RETURN(ul); } } ul = GETBOOL16(MoveWindow(HWND32(parg16->f1), INT32(parg16->f2), INT32(parg16->f3), INT32(parg16->f4), INT32(parg16->f5), BOOL32(parg16->f6))); FREEARGPTR(parg16); RETURN(ul); } /*++ void ScrollWindow(, , , , ) HWND ; int ; int ; LPRECT ; LPRECT ; The %ScrollWindow% function scrolls a window by moving the contents of the window's client area the number of units specified by the parameter along the screen's -axis and the number of units specified by the parameter along the -axis. The scroll moves right if is positive and left if it is negative. The scroll moves down if is positive and up if it is negative. Identifies the window whose client area is to be scrolled. Specifies the amount (in device units) to scroll in the direction. Specifies the amount (in device units) to scroll in the direction. Points to a %RECT% structure that specifies the portion of the client area to be scrolled. If is NULL, the entire client area is scrolled. Points to a %RECT% structure that specifies the clipping rectangle to be scrolled. Only bits inside this rectangle are scrolled. If is NULL, the entire window is scrolled. This function does not return a value. If the caret is in the window being scrolled, %ScrollWindow% automatically hides the caret to prevent it from being erased, then restores the caret after the scroll is finished. The caret position is adjusted accordingly. The area uncovered by the %ScrollWindow% function is not repainted, but is combined into the window's update region. The application will eventually receive a WM_PAINT message notifying it that the region needs repainting. To repaint the uncovered area at the same time the scrolling is done, call the %UpdateWindow% function immediately after calling %ScrollWindow%. If the parameter is NULL, the positions of any child windows in the window are offset by the amount specified by and , and any invalid (unpainted) areas in the window are also offset. %ScrollWindow% is faster when is NULL. If the parameter is not NULL, the positions of child windows are changed, and invalid areas in the window are offset. To prevent updating problems when is not NULL, call the %UpdateWindow% function to repaint the window before calling %ScrollWindow%. --*/ ULONG FASTCALL WU32ScrollWindow(PVDMFRAME pFrame) { RECT t4, *p4; RECT t5, *p5; register PSCROLLWINDOW16 parg16; GETARGPTR(pFrame, sizeof(SCROLLWINDOW16), parg16); p4 = GETRECT16(parg16->f4, &t4); p5 = GETRECT16(parg16->f5, &t5); ScrollWindow( HWND32(parg16->f1), INT32(parg16->f2), INT32(parg16->f3), p4, p5 ); FREEARGPTR(parg16); RETURN(0); } /*++ LONG SetWindowLong(, , ) HWND ; int ; DWORD ; The %SetWindowLong% function changes an attribute of the window specified by the parameter. Identifies the window. Specifies the byte offset of the attribute to be changed. It may also be one of the following values: GWL_EXSTYLE Sets a new extended window style. GWL_STYLE Sets a new window style. GWL_WNDPROC Sets a new long pointer to the window procedure. Specifies the replacement value. The return value specifies the previous value of the specified long integer. If the %SetWindowLong% function and the GWL_WNDPROC index are used to set a new window function, that function must have the window-function form and be exported in the module-definition file of the application. For more information, see the %RegisterClass% function, earlier in this chapter. Calling %SetWindowLong% with the GCL_WNDPROC index creates a subclass of the window class used to create the window. See Chapter 1, Window Manager Interface Functions, for more information on window subclassing. An application should not attempt to create a window subclass for standard Windows controls such as combo boxes and buttons. To access any extra four-byte values allocated when the window-class structure was created, use a positive byte offset as the index specified by the parameter, starting at zero for the first four-byte value in the extra space, 4 for the next four-byte value and so on. --*/ ULONG FASTCALL WU32SetWindowLong(PVDMFRAME pFrame) { ULONG ul; INT iOffset, iClass; register PWW pww; register PSETWINDOWLONG16 parg16; GETARGPTR(pFrame, sizeof(SETWINDOWLONG16), parg16); // Make sure Win32 didn't change offsets for GWL constants #if (GWL_WNDPROC != (-4) || GWL_STYLE != (-16) || GWL_EXSTYLE != (-20)) #error Win16/Win32 GWL constants differ #endif // Make sure the 16-bit app is requesting allowable offsets iOffset = INT32(parg16->f2); WOW32ASSERT(iOffset >= 0 || iOffset == GWL_WNDPROC || iOffset == GWL_STYLE || iOffset == GWL_EXSTYLE); ul = 0; if ((iOffset == GWL_WNDPROC) || (iOffset == DWL_DLGPROC)) { if (pww = FindPWW(HWND32(parg16->f1))) { DWORD dwWndProc32Old; DWORD dwWndProc32New; if ((iOffset == DWL_DLGPROC) && !(pww->state & WF_DIALOG_WINDOW)) { goto defswp; } // Look to see if the new 16:16 proc is a thunk for a 32-bit proc. dwWndProc32New = IsThunkWindowProc(LONG32(parg16->f3), &iClass ); if ( dwWndProc32New != 0 ) { // // They are attempting to set the window proc to an existing // 16-bit thunk that is really just a thunk for a 32-bit // routine. We can just set it back to the 32-bit routine. // dwWndProc32Old = SetWindowLong(HWND32(parg16->f1), iOffset, dwWndProc32New); // If the 32 bit set failed, perhaps because its another process, // then we want to fail too if (!dwWndProc32Old) goto SWL_Cleanup; } else { // // They are attempting to set it to a real 16:16 proc. // LONG l; l = LONG32(parg16->f3); // mark the proc as WOW proc and save the high bits in the RPL // // Don't mark a NULL proc since USER32 DefWindowProcWorker // looks specifically for NULL. WOW used to do this correctly // but was broken by a performance enhancement checkin. This // fixes VC1.52 debugging. // if (l) { MarkWOWProc (l,l); } dwWndProc32Old = SetWindowLong(HWND32(parg16->f1), iOffset, l); // If the 32 bit set failed, perhaps because its another process, // then we want to fail too if (!dwWndProc32Old) goto SWL_Cleanup; } if ( IsWOWProc (dwWndProc32Old)) { if ( HIWORD(dwWndProc32Old) == WNDPROC_HANDLE ) { // // If the return value was a handle to a proc (due to // the need for unicode-ansi transitions, or vice versa) // then treat it as a 32-bit thunk. // ul = GetThunkWindowProc(dwWndProc32Old, NULL, pww, HWND32(parg16->f1)); } else { // // Previous proc was a 16:16 proc // //Unmark the proc and restore the high bits from rpl field UnMarkWOWProc (dwWndProc32Old,ul); } } else { // // Previous proc was a 32-bit proc, use an allocated thunk // ul = GetThunkWindowProc(dwWndProc32Old, NULL, pww, HWND32(parg16->f1)); } } } else { // not GWL_WNDPROC or GWL_DLGPROC LONG new; defswp: new = LONG32(parg16->f3); /* * We need to keep Wow apps from putting garbage in post-4.0 bits in * the extended style DWORD. Kiplinger's TaxCut 97 sets the WS_EX_LAYERED * bit on their help window, which is quite unfortunate. */ if (iOffset == GWL_EXSTYLE) { new &= WS_EX_VALID40; new |= (GetWindowLong(HWND32(parg16->f1), GWL_EXSTYLE) & ~WS_EX_VALID40); } // This is a real HACK for PowerBuild 3.0. Before we change the offset // from 2 to 4, we nneed to make sure that we are doing it for this // specific class. // The class in this case is "PaList". // // ChandanC Marh 9th 1994 // if (iOffset == 2) { if (CURRENTPTD()->dwWOWCompatFlags & WOWCF_GWLINDEX2TO4) { char Buffer[40]; if (GetClassName (HWND32(parg16->f1), Buffer, sizeof(Buffer))) { if (!WOW32_stricmp (Buffer, "PaList")) { iOffset = 4; } } } } ul = SetWindowLong(HWND32(parg16->f1), iOffset, new); } SWL_Cleanup: FREEARGPTR(parg16); RETURN(ul); } /*++ BOOL ShowWindow(, ) HWND ; int ; The %ShowWindow% function sets the specified windows show state. Handle to the window. Specifies how the window is to be shown. This value can have any of the following values: SW_FORCEMINIMIZE Minimizes a window, even if the thread that owns the window is hung. This flag should only be used when minimizing windows from a different thread. SW_HIDE Hides the window and activiates another window. SW_MINIMIZE Minimizes the specified window and activates the next top-level window in the Z order. SW_RESTORE Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window. SW_SHOW Activiates the window and displays it in its current size and position. SW_SHOWDEFAULT Sets the show state based on the SW_ value specified in the STARTUPINFO structure passed to the CreateProcess() function by the program that started the application. SW_SHOWMAXIMIZED Activates the window and displays it as a minimized window. SW_SHOWMINNOACTIVE Displays the window as a minimized window. This value is similar to SW_SHOWMINIMIZED, except the window is not activated. SW_SHOWNA Displays the window in its current size and position. This value is similar to SW_SHOW, except the window is not activated. SW_SHOWNOACTIVATE Displays a window in its most recent size and position. This value is similar to SW_SHOWNORMAL, except the window is not activated. SW_SHOWNORMAL Activates and displays a window. If the window is minimized or maximized, the system restores it to its orignial size and position. An application should specify this flag when displaying the window for the first time. This function returns nonzero if the window if the window was previously visible. It returns zero if the window was previously hidden. The first time an application calls ShowWindow(), it should use the WinMain function's parameter as its parameter. Subsequent calls to ShowWindow() must use one of the values in the given list, instead of the one specified by the WinMain function's parameter. --*/ ULONG FASTCALL WU32ShowWindow(PVDMFRAME pFrame) { BOOL bReturn = FALSE; register PSHOWWINDOW16 parg16; GETARGPTR(pFrame, sizeof(SHOWWINDOW16), parg16); bReturn = ShowWindow(HWND32(parg16->f1), INT32(parg16->f2)); // WHISTLER RAID BUG #348251 // The artgalry.exe window would remain behind autosketches window after it was // invoked. This hack works in conjuction with the GACF2_GIVEUPFOREGROUND // compatibility flag, applied to the app that will not give up the foreground. // In order to move the 16bit window to the top, we have to call // SetForegroundWindow() on the hwnd. We only want to call this if the windows // show bit is set and the window is active. if((INT32(parg16->f2) | SW_SHOW) && (bReturn == 0) && (CURRENTPTD()->dwWOWCompatFlags2 & WOWCF2_SETFOREGROUND)) { SetForegroundWindow(HWND32(parg16->f1)); LOGDEBUG(LOG_WARNING, ("WU32ShowWindow: SetForegroundWindow called. HWND=%x STYLE=%x\n", HWND32(parg16->f1), INT32(parg16->f2))); } FREEARGPTR(parg16); RETURN((ULONG)bReturn); } /*++ BOOL SetWindowPos(, , , , , , ) HWND ; HWND ; int ; int ; int ; int ; WORD ; The %SetWindowPos% function changes the size, position, and ordering of child, pop-up, and top-level windows. Child, pop-up, and top-level windows are ordered according to their appearance on the screen; the topmost window receives the highest rank, and it is the first window in the list. This ordering is recorded in a window list. Identifies the window that will be positioned. Identifies a window in the window-manager's list that will precede the positioned window. Specifies the coordinate of the window's upper-left corner. Specifies the coordinate of the window's upper-left corner. Specifies the new window's width. Specifies the new window's height. Specifies one of eight possible 16-bit values that affect the sizing and positioning of the window. It must be one of the following values: SWP_DRAWFRAME Draws a frame (defined in the window's class description) around the window. SWP_HIDEWINDOW Hides the window. SWP_NOACTIVATE Does not activate the window. SWP_NOMOVE Retains current position (ignores the and parameters). SWP_NOSIZE Retains current size (ignores the and parameters). SWP_NOREDRAW Does not redraw changes. SWP_NOZORDER Retains current ordering (ignores the parameter). SWP_SHOWWINDOW Displays the window. The return value is nonzero if the function is successful. Otherwise it is zero. (updated for Win3.1 compatability -- this returned void for Win3.0) If the SWP_NOZORDER flag is not specified, Windows places the window identified by the parameter in the position following the window identified by the parameter. If is NULL, Windows places the window identified by at the top of the list. If is set to 1, Windows places the window identified by at the bottom of the list. If the SWP_SHOWWINDOW or the SWP_HIDEWINDOW flags are set, scrolling and moving cannot be done simultaneously. All coordinates for child windows are relative to the upper-left corner of the parent window's client area. --*/ ULONG FASTCALL WU32SetWindowPos(PVDMFRAME pFrame) { ULONG ul; register PSETWINDOWPOS16 parg16; GETARGPTR(pFrame, sizeof(SETWINDOWPOS16), parg16); #ifdef FE_IME // MSKKBUG:3866 HWND_IMETOPMOST for MS-DRAW if ( (HWND)INT32(parg16->f2) == (HWND)-3 ) ul = GETBOOL16(SetWindowPos(HWND32(parg16->f1), HWND_TOPMOST, INT32(parg16->f3), INT32(parg16->f4), INT32(parg16->f5), INT32(parg16->f6), WORD32(parg16->f7) & SWP_VALID)); else #endif // FE_IME ul = GETBOOL16(SetWindowPos(HWND32(parg16->f1), HWNDIA32(parg16->f2), INT32(parg16->f3), INT32(parg16->f4), INT32(parg16->f5), INT32(parg16->f6), WORD32(parg16->f7) & SWP_VALID)); FREEARGPTR(parg16); RETURN(ul); } /*++ void SetWindowText(, ) The %SetWindowText% function sets the given window's caption title (if one exists) to the string pointed to by the parameter. If the parameter is a handle to a control, the %SetWindowText% function sets the text within the control instead of within the caption. Identifies the window or control whose text is to be changed. Points to a null-terminated string. This function does not return a value. --*/ ULONG FASTCALL WU32SetWindowText(PVDMFRAME pFrame) { PSZ psz2; register PSETWINDOWTEXT16 parg16; HANDLE handle; GETARGPTR(pFrame, sizeof(SETWINDOWTEXT16), parg16); GETPSZPTR(parg16->f2, psz2); handle = HWND32(parg16->f1); if (NULL != psz2) { AddParamMap((DWORD)psz2, FETCHDWORD(parg16->f2)); } if (CURRENTPTD()->dwWOWCompatFlags & WOWCF_DBASEHANDLEBUG) { if (NULL == handle) { handle = (HANDLE) ((PTDB)SEGPTR(pFrame->wTDB,0))->TDB_CompatHandle; } } SetWindowText(handle, psz2); // if we used param map successfully - then nuke there if (NULL != psz2) { DeleteParamMap((DWORD)psz2, PARAM_32, NULL); } FREEPSZPTR(psz2); FREEARGPTR(parg16); RETURN(0); } /*++ WORD SetWindowWord(, , ) The %SetWindowWord% function changes an attribute of the window specified by the parameter. Identifies the window to be modified. Specifies the byte offset of the word to be changed. It can also be one of the following values: GWL_HINSTANCE Instance handle of the module that owns the window. GWL_ID Control ID of the child window. Specifies the replacement value. The return value specifies the previous value of the specified word. To access any extra two-byte values allocated when the window-class structure was created, use a positive byte offset as the index specified by the parameter, starting at zero for the first two-byte value in the extra space, 2 for the next two-byte value and so on. --*/ ULONG FASTCALL WU32SetWindowWord(PVDMFRAME pFrame) { ULONG ul; HWND hwnd; INT iOffset; PSETWINDOWWORD16 parg16; PWW pww; GETARGPTR(pFrame, sizeof(SETWINDOWWORD16), parg16); // Make sure Win32 didn't change offsets #if (GWL_HINSTANCE != (-6) || GWL_HWNDPARENT != (-8) || GWL_ID != (-12)) #error Win16/Win32 window-word constants differ #endif // Make sure the 16-bit app is requesting allowable offsets iOffset = INT32(parg16->f2); WOW32ASSERT(iOffset >= 0 || iOffset == GWL_HINSTANCE || iOffset == GWL_ID || iOffset == GWL_HWNDPARENT); hwnd = HWND32(parg16->f1); ul = WORD32(parg16->f3); switch(iOffset) { case GWL_HINSTANCE: ul = GETHINST16(SetWindowLong(hwnd, iOffset, (LONG)HMODINST32(parg16->f3))); break; case GWL_HWNDPARENT: // ul = 0; // not allowed to set this ul = SetWindowLong(hwnd, iOffset, (LONG)HWND32(parg16->f3)); ul = GETHWND16((HAND32)ul); break; case GWL_ID: { // if this isn't a child window then the value should be a // menu handle BOOL fChild = (GetWindowLong(hwnd, GWL_STYLE) & WS_CHILD); ul = SetWindowLong(hwnd, iOffset, fChild ? (LONG)ul : (LONG)HMENU32(parg16->f3)); if (!fChild) ul = (ULONG)GETHMENU16(ul); // Invalidate the SendDlgItemMessage cache hdlgSDIMCached = NULL ; } break; // Under Windows index 4 of a static control could be the icon case 4: pww = FindPWW(hwnd); if (pww) { if (((pww->style & SS_TYPEMASK) == SS_ICON) && (GETICLASS(pww, hwnd) == WOWCLASS_STATIC)) { ul = SendMessage(hwnd, STM_SETICON, (WPARAM)HICON32(ul), 0); return GETHICON16(ul); } } // FALL THROUGH! default: // // Offset is non-negative, this is the cbWndExtra bytes that // are fair game. // // // Gross app hack for Adonis' Clip-Art Window Shopper online // clipart software that comes with CA-Cricket Presents. // These people SetWindowWord(hwnd, 3, wWhatever), thereby // overwriting the 4th and 5th bytes of per-window data. // The edit control itself only uses the first 2 bytes // on 3.1, and has 6 bytes reserved, so this works. On // NT the first 4 bytes are used (32-bit handle), and so // this P.O.S. overwrites the high byte of the handle. // So if it's an app called "SHOPPER" and it's storing a // word at offset 3, change it to 4. This is safe because // the NT edit control only uses the first 4 of its 6 // reserved window extra bytes. // if (3 == iOffset && (CURRENTPTD()->dwWOWCompatFlags & WOWCF_EDITCTRLWNDWORDS)) { char szClassName[30]; if (GetClassName(hwnd, szClassName, sizeof(szClassName)) && !WOW32_strcmp(szClassName, "SuperPassEdit")) { iOffset = 4; LOGDEBUG(LOG_ALWAYS,("WOW WU32SetWindowWord: SHOPPER hack triggered, using offset 4.\n")); } } ul = SetWindowWord(hwnd, iOffset, (WORD)ul); break; } FREEARGPTR(parg16); RETURN(ul); } /*++ user void UpdateWindow() The %UpdateWindow% function updates the client area of the given window by sending a WM_PAINT message to the window if the update region for the window is not empty. The %UpdateWindow% function sends a WM_PAINT message directly to the window function of the given window, bypassing the application queue. If the update region is empty, no message is sent. Identifies the window to be updated. This function does not return a value. --*/ ULONG FASTCALL WU32UpdateWindow(PVDMFRAME pFrame) { register PUPDATEWINDOW16 parg16; GETARGPTR(pFrame, sizeof(UPDATEWINDOW16), parg16); UpdateWindow( HWND32(parg16->f1) ); FREEARGPTR(parg16); RETURN(0xcdef); // ack! same as win31 } /*++ HWND WindowFromPoint() The %WindowFromPoint% function identifies the window that contains the given point; must specify the screen coordinates of a point on the screen. Specifies a %POINT% structure that defines the point to be checked. The return value identifies the window in which the point lies. It is NULL if no window exists at the given point. --*/ ULONG FASTCALL WU32WindowFromPoint(PVDMFRAME pFrame) { ULONG ul; POINT t1; register PWINDOWFROMPOINT16 parg16; GETARGPTR(pFrame, sizeof(WINDOWFROMPOINT16), parg16); COPYPOINT16(parg16->f1, t1); ul = GETHWND16(WindowFromPoint(t1)); FREEARGPTR(parg16); RETURN(ul); }