用API移动一个程序到其他位置。程序是外部程序不是子窗体或者子控件

Question

如题。

最要用SENDMESSAGE之类的。

请以VB做答。

Answer 1

Public Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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

hwnd ----------- Long，欲定位的窗口

hWndInsertAfter - Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：
HWND_BOTTOM
将窗口置于窗口列表底部
HWND_TOP
将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序
HWND_TOPMOST
将窗口置于列表顶部，并位于任何最顶部窗口的前面
HWND_NOTOPMOST
将窗口置于列表顶部，并位于任何最顶部窗口的后面

x -------------- Long，窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示

y -------------- Long，窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示

cx ------------- Long，指定新的窗口宽度

cy ------------- Long，指定新的窗口高度

wFlags --------- Long，包含了旗标的一个整数
SWP_DRAWFRAME
围绕窗口画一个框
SWP_HIDEWINDOW
隐藏窗口
SWP_NOACTIVATE
不激活窗口
SWP_NOMOVE
保持当前位置（x和y设定将被忽略）
SWP_NOREDRAW
窗口不自动重画
SWP_NOSIZE
保持当前大小（cx和cy会被忽略）
SWP_NOZORDER
保持窗口在列表的当前位置（hWndInsertAfter将被忽略）
SWP_SHOWWINDOW
显示窗口
SWP_FRAMECHANGED
强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变

=======================================
例子：设置一个位置为X,Y窗口
SetWindowPos Hwnd, -1, x, y, 100, 100, 1 '最后一个1表示窗体大小不改变，100，100是随便写的，没有用

Answer 2

Declare
Function
MoveWindow
Lib
"user32"
Alias
"MoveWindow"
(ByVal
hwnd
As
Long,
ByVal
x
As
Long,
ByVal
y
As
Long,
ByVal
nWidth
As
Long,
ByVal
nHeight
As
Long,
ByVal
bRepaint
As
Long)
As
Long
说明
改变指定窗口位置和大小顶级窗口能受大或小尺寸限制些尺寸优先于里设置参数
返回值
Long非零表示成功零表示失败
参数表
参数
类型及说明
hwnd
Long欲移动窗口句柄
x
Long窗口新左侧位置
y
Long窗口新顶部位置
nWidth
Long窗口新宽度
nHeight
Long窗口高宽度
bRepaint
Long窗口此时应重画则设TRUE(非零)FALSE(零)则表明应用程序会自己决定否重画窗口