置顶后如何解决其它应用程序不被遮盖住？

Question

我写的代码：
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOZORDER = &H4
Private Const SWP_NOREDRAW = &H8
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOCOPYBITS = &H80
Private Const SWP_NOOWNERZORDER = &H200
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Private Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Private Const HWND_TOP = 0
Private Const HWND_BOTTOM = 1
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2Private Sub Form_Load()
  Me.Width = Screen.Width
  Me.Height = 1362
  Me.Top = 0
  Me.Left = 0
  SetWindowPos hwnd, -1, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_NOZORDER
End Sub运行后其它程序的顶端部分就被遮盖了，请教如何能做到让其它程序自动缩减，就好像cashfiesta的工具条一样，

Answer 1

wzzwwz(棒子面窝头)：什么意思？

Answer 2

应该能做到，不知大家用过cashfiesta没有，它就是强行让其它应用程序一直处在它的下方而不是被它遮盖住

Answer 3

再举一个例子：能不能做到像windows中的没有自动隐藏的任务栏一样，始终在前面，而且不管什么程序启动，都不会出现遮盖程序的情况

Answer 4

cashfiesta是赚美圆的吧~呵呵~~！！！1.先获得windows桌面工作区域（除任务栏外）的大小
（有这样一个api函数，我忘记了，好象是get***）
如果你显示器分辨率是800 * 600 任务栏的在屏幕的下方，任务栏的高度是30个像素的话
你得到的工作区域应该是800*570 2.获得你要控制的窗口的句柄有了上面这些，就可以3.用SetWindowPos设置窗口的大小和位置这样应该可以

Answer 5

j_x_y(cctv):是的是的，我要的就是这种效果