>* dCUpgrade - Application Upgrade Manager >Declare long GetWindowLong in "user32.dll" long hwnd, long index >Declare long SetWindowLong in "user32.dll" long hWnd, long Index,long dwNewLong >Declare long SetWindowPos In "user32.dll" long hWnd, long hWndInsertAfter, long x, long y, long w, long h, long option >WS_CAPTION=12582912 >WS_OVERLAPPED=0 >SWP_FRAMECHANGED=32 > >Local loFrm >Set Procedure to prg\dCFunc.Fxp >Set Path to dbf\,prj\ >_Screen.Visible=.N. > >loFrm=NewObject("dCUpgrade","dCUPGrade.vcx") > >lnStyle=GetWindowLong(loFrm.hWnd,-16) >lnStyle=Bitand(lnStyle,Bitnot(Bitor(0,WS_CAPTION))) >SetWindowLong(loFrm.hWnd,-16,lnStyle) >SetWindowPos(loFrm.hWnd,0,1,1,1296,976,SWP_FRAMECHANGED) > >loFrm.Show > >Read Events > >loFrm="" >Close Database >If Version(2)=0 > Quit >EndIf >nice