易语言怎么做一个护眼软件的全屏锁定窗口?
易语言怎么做一个护眼软件的全屏锁定窗口?已经把该窗口,放入时钟控件。启动事件,时钟周期=10,在时钟的事件,调整层次的参数为#最高层,90%的软件可以锁住,发现酷我音乐的...
易语言怎么做一个护眼软件的全屏锁定窗口?已经把该窗口,放入时钟控件。启动事件,时钟周期=10,在时钟的事件,调整层次的参数为#最高层,90%的软件可以锁住,发现酷我音乐的桌面歌词锁不住,一用鼠标点它,任务栏全部出现了,求解。
展开
1个回答
2018-01-03
展开全部
以下是代码,一定要看 清楚再执行啊!要不然,,,,你懂的!锁屏嘛,当然是锁屏的啦,复制到易语言粘贴就可以了:
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 程序集_时钟id, 整数型
.程序集变量 程序集_当前句柄, 整数型
.子程序 _启动子程序, 整数型
载入 (_启动窗口, , 假)
返回 (0)
.子程序 __启动窗口_创建完毕
程序集_当前句柄 = _启动窗口.取窗口句柄 ()
SetWindowPos (程序集_当前句柄, -1, 0, 0, 0, 0, 3) ' 将自身句柄设顶
_启动窗口.控制按钮 = 假
_启动窗口.宽度 = 取屏幕宽度 ()
_启动窗口.高度 = 取屏幕高度 ()
_启动窗口.左边 = 0
_启动窗口.顶边 = 0
程序集_时钟id = SetTimer (0, 123, 50, &判断顶层窗口) ' 创建时钟
.子程序 判断顶层窗口
SetWindowPos (程序集_当前句柄, -1, 0, 0, 0, 0, 3)
.子程序 __启动窗口_将被销毁
KillTimer (0, 程序集_时钟id)
.子程序 __启动窗口_位置被改变
_启动窗口.位置 = 0
.子程序 __启动窗口_可否被关闭, 逻辑型
返回 (假)
.版本 2
.DLL命令 SetWindowPos, , "user32", "SetWindowPos"
.参数 hWnd, 整数型
.参数 hWndInsertAfter, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 cx, 整数型
.参数 cy, 整数型
.参数 wFlags, 整数型
.DLL命令 SetTimer, 整数型, , "SetTimer"
.参数 Thwnd, 整数型
.参数 nIDEvent, 整数型
.参数 uElapse, 整数型
.参数 lpTimerFunc, 子程序指针
.DLL命令 KillTimer, 整数型, , "KillTimer"
.参数 c1, 整数型
.参数 Timerid, 整数型
.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 程序集_时钟id, 整数型
.程序集变量 程序集_当前句柄, 整数型
.子程序 _启动子程序, 整数型
载入 (_启动窗口, , 假)
返回 (0)
.子程序 __启动窗口_创建完毕
程序集_当前句柄 = _启动窗口.取窗口句柄 ()
SetWindowPos (程序集_当前句柄, -1, 0, 0, 0, 0, 3) ' 将自身句柄设顶
_启动窗口.控制按钮 = 假
_启动窗口.宽度 = 取屏幕宽度 ()
_启动窗口.高度 = 取屏幕高度 ()
_启动窗口.左边 = 0
_启动窗口.顶边 = 0
程序集_时钟id = SetTimer (0, 123, 50, &判断顶层窗口) ' 创建时钟
.子程序 判断顶层窗口
SetWindowPos (程序集_当前句柄, -1, 0, 0, 0, 0, 3)
.子程序 __启动窗口_将被销毁
KillTimer (0, 程序集_时钟id)
.子程序 __启动窗口_位置被改变
_启动窗口.位置 = 0
.子程序 __启动窗口_可否被关闭, 逻辑型
返回 (假)
.版本 2
.DLL命令 SetWindowPos, , "user32", "SetWindowPos"
.参数 hWnd, 整数型
.参数 hWndInsertAfter, 整数型
.参数 x, 整数型
.参数 y, 整数型
.参数 cx, 整数型
.参数 cy, 整数型
.参数 wFlags, 整数型
.DLL命令 SetTimer, 整数型, , "SetTimer"
.参数 Thwnd, 整数型
.参数 nIDEvent, 整数型
.参数 uElapse, 整数型
.参数 lpTimerFunc, 子程序指针
.DLL命令 KillTimer, 整数型, , "KillTimer"
.参数 c1, 整数型
.参数 Timerid, 整数型
追问
怎么使用的啊!复制到哪?我的全屏锁定窗口叫“窗口锁定”,是复制给它吗?
网易云信
2023-12-06 广告
2023-12-06 广告
在新设备(或卸载重装)登录时,服务器记录的漫游消息将自动同步到客户端SDK。消息漫游默认是关闭的,打开方式:登录云信控制台 > 选择[应用] > 基础功能 > 消息漫游。...
点击进入详情页
本回答由网易云信提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询