* Extended Window Styles
#DEFINE WS_EX_DLGMODALFRAME    1
#DEFINE WS_EX_NOPARENTNOTIFY   4
#DEFINE WS_EX_TOPMOST          8
#DEFINE WS_EX_ACCEPTFILES     16
#DEFINE WS_EX_TRANSPARENT     32
#DEFINE WS_EX_MDICHILD        64
#DEFINE WS_EX_TOOLWINDOW     128
#DEFINE WS_EX_WINDOWEDGE     256
#DEFINE WS_EX_CLIENTEDGE     512
#DEFINE WS_EX_CONTEXTHELP   1024
 
#DEFINE WS_EX_CONTROLPARENT 0x10000
#DEFINE WS_EX_STATICEDGE  0x20000
#DEFINE WS_EX_APPWINDOW  0x40000
 
#DEFINE SW_NORMAL  1
#DEFINE WS_OVERLAPPED 0
#DEFINE WS_CAPTION  0xC00000
#DEFINE WS_SYSMENU  0x80000
#DEFINE WS_THICKFRAME  0x40000
#DEFINE WS_MINIMIZEBOX  0x20000
#DEFINE WS_MAXIMIZEBOX  0x10000
 
DO decl
 
    hwnd = GetActiveWindow()
    lcClass = SPACE(250)
 
    lnSize = RealGetWindowClass (hwnd, @lcClass , Len(lcClass ))
    lcClass = STRTRAN (SUBSTR(lcClass, 1,lnSize), Chr(0),"")
 
    dwExStyle = WS_EX_APPWINDOW+WS_EX_CLIENTEDGE+WS_EX_WINDOWEDGE
    dwStyle   = WS_CAPTION+WS_SYSMENU+WS_THICKFRAME+WS_MAXIMIZEBOX+WS_MINIMIZEBOX
 
    hNew = CreateWindowEx (dwExStyle, lcClass, "Sample Window created",;
        dwStyle, 10, 10, 800, 300, hwnd, 0, 0, 0)
 
    = ShowWindow (hNew, SW_NORMAL)
    hDC = GetDC (hNew)
 
    lpString = "The GetActiveWindow function retrieves the active window handle" 
    ? TextOut (hDC, 10,10, lpString, Len(lpString))     
 
    = ReleaseDC (hNew, hDC)
 
PROCEDURE  decl
    DECLARE INTEGER RealGetWindowClass IN user32;
        INTEGER  hwnd,;
        STRING @ pszType,;
        INTEGER  cchType
 
    DECLARE INTEGER GetActiveWindow IN user32 
 
    DECLARE INTEGER CreateWindowEx IN user32;
        INTEGER dwExStyle,;
        STRING lpClassName,;
        STRING lpWindowName,;
        INTEGER dwStyle,;
        INTEGER x,;
        INTEGER y,;
        INTEGER nWidth,;
        INTEGER nHeight,;
        INTEGER hWndParent,;
        INTEGER hMenu,;
        INTEGER hInstance,;
        INTEGER lpParam
 
    DECLARE INTEGER ShowWindow IN user32;
        INTEGER hwnd,;
        INTEGER nCmdShow
 
    DECLARE INTEGER GetDC IN user32 INTEGER hwnd 
 
    DECLARE INTEGER TextOut IN gdi32;
        INTEGER hdc,;
        INTEGER x,;
        INTEGER y,;
        STRING  lpString,;
        INTEGER nCount
 
    DECLARE INTEGER ReleaseDC IN user32;
        INTEGER hwnd, INTEGER hdc