>declare integer GetWindowLong ; > in user32 ; > as __GetWindowLong__ ; > integer, ; > integer > >declare integer SetWindowLong ; > in user32 ; > as __SetWindowLong__ ; > integer, ; > integer, ; > integer > >DECLARE INTEGER FindWindow IN Win32API; > STRING @lpClassName, STRING @lpWindowName > >* hide this window from the taskbar and switchbar >* #define WS_EX_TOOLWINDOW 0x80 >* #define WS_EX_APPWINDOW 0x40000 > local lnStyle, lnHWND,lcVFPcaption > DO x_debug > lcVFPcaption = _vfp.Caption > lnHWND= FindWindow(0, @lcVFPcaption) > > lnStyle = __GetWindowLong__(lnHWND, -20) > if bitand(m.lnStyle, 0x40000) = 0x40000 then > lnStyle = bitxor(m.lnStyle, 0x40000) > =__SetWindowLong__(lnHWND, -20, m.lnStyle) && remove from taskbar > endif > >>