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)
Private Const SWP_FRAMECHANGED = &H20 '强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED '围绕窗口画一个框
Private Const SWP_HIDEWINDOW = &H80 '隐藏窗口
Private Const SWP_NOACTIVATE = &H10 '不激活窗口
Private Const SWP_NOMOVE = &H2 '保持当前位置(x和y设定将被忽略)
Private Const SWP_NOREDRAW = &H8 '窗口不自动重画
Private Const SWP_NOSIZE = &H1 '保持当前大小(cx和cy会被忽略)
Private Const SWP_NOZORDER = &H4 '保持窗口在列表的当前位置(hWndInsertAfter将被忽略)
Private Const SWP_SHOWWINDOW = &H40 '显示窗口

Private Const HWND_TOP = 0 '将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序
Private Const HWND_TOPMOST = -1 '将窗口置于列表顶部，并位于任何最顶部窗口的前面
Private Const HWND_BOTTOM = 1 '将窗口置于窗口列表底部
Private Const HWND_NOTOPMOST = -2 '将窗口置于列表顶部，并位于任何最顶部窗口的后面



SetWindowPos(form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE) '窗口置前


你看这个可以不?我是穷人 没有摄相头!

窗口置前 是治标不治本的.由于在特殊环境中 还有个另个程序是置前的.所以现在要解决的是:窗口被其他程序挡住能继续刷新视频

我KAO,LS两位是不是没看回帖?
我郁闷,你找找看?我都都找了好几天了.我都不敢抬头见经理