3个回答
展开全部
.版本 2
.程序集 窗口程序集1
.程序集变量 hwnd
.子程序 __启动窗口_创建完毕
.局部变量 a
可视 = 真
运行 (“notepad.exe”, 假, )
hwnd = FindWindow (“Notepad”, “无标题 - 记事本”)
.判断循环首 (hwnd = 0)
hwnd = FindWindow (“Notepad”, “无标题 - 记事本”)
.判断循环尾 ()
SetParent (hwnd, 取窗口句柄 ())
a = 高度 - 取用户区高度 () - 4
SetWindowPos (hwnd, 0, -4, -a, 取用户区宽度 () + 8, 取用户区高度 () + a + 4, 0)
.子程序 __启动窗口_尺寸被改变
.局部变量 a
a = 高度 - 取用户区高度 () - 4
SetWindowPos (hwnd, 0, -4, -a, 取用户区宽度 () + 8, 取用户区高度 () + a + 4, 0)
.版本 2
.DLL命令 SetParent, 整数型, "user32", "SetParent"
.参数 hWndChild, 整数型
.参数 hWndNewParent, 整数型
.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos"
.参数 hwnd, 整数型
.参数 hWndInsertAfter, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 cx, 整数型
.参数 cy, 整数型
.参数 wFlags, 整数型
.DLL命令 FindWindow, 整数型, "user32", "FindWindowA"
.参数 lpClassName, 文本型, 传址
.参数 lpWindowName, 文本型, 传址
.程序集 窗口程序集1
.程序集变量 hwnd
.子程序 __启动窗口_创建完毕
.局部变量 a
可视 = 真
运行 (“notepad.exe”, 假, )
hwnd = FindWindow (“Notepad”, “无标题 - 记事本”)
.判断循环首 (hwnd = 0)
hwnd = FindWindow (“Notepad”, “无标题 - 记事本”)
.判断循环尾 ()
SetParent (hwnd, 取窗口句柄 ())
a = 高度 - 取用户区高度 () - 4
SetWindowPos (hwnd, 0, -4, -a, 取用户区宽度 () + 8, 取用户区高度 () + a + 4, 0)
.子程序 __启动窗口_尺寸被改变
.局部变量 a
a = 高度 - 取用户区高度 () - 4
SetWindowPos (hwnd, 0, -4, -a, 取用户区宽度 () + 8, 取用户区高度 () + a + 4, 0)
.版本 2
.DLL命令 SetParent, 整数型, "user32", "SetParent"
.参数 hWndChild, 整数型
.参数 hWndNewParent, 整数型
.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos"
.参数 hwnd, 整数型
.参数 hWndInsertAfter, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 cx, 整数型
.参数 cy, 整数型
.参数 wFlags, 整数型
.DLL命令 FindWindow, 整数型, "user32", "FindWindowA"
.参数 lpClassName, 文本型, 传址
.参数 lpWindowName, 文本型, 传址
展开全部
先取那个窗口的窗口句柄,API如下:.版本 2
.DLL命令 置父窗口, 整数型, "user32.dll", "SetParent"
.参数 子窗口句柄, 整数型, , 子窗口的取窗口句柄
.参数 父窗口句柄, 整数型, , 父窗口的取窗口句柄
载入时用 置父窗口 (某某某窗口1.取窗口句柄 (), 某某某窗口2.取窗口句柄 ())
注意:左边的是子窗口,右边的是父窗口,或者说把子窗口放到父窗口里
注意:子窗口会变成16位色素
.DLL命令 置父窗口, 整数型, "user32.dll", "SetParent"
.参数 子窗口句柄, 整数型, , 子窗口的取窗口句柄
.参数 父窗口句柄, 整数型, , 父窗口的取窗口句柄
载入时用 置父窗口 (某某某窗口1.取窗口句柄 (), 某某某窗口2.取窗口句柄 ())
注意:左边的是子窗口,右边的是父窗口,或者说把子窗口放到父窗口里
注意:子窗口会变成16位色素
追问
置父窗口 (某某某窗口1.取窗口句柄 (), 某某某窗口2.取窗口句柄 ())
这句话怎么写
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
关于易语言不懂的,建议你去华夏联盟论坛求助一下,那里的编程高手应该可以帮到你。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询