桌面小魔术1.0

桌面小魔术1.0

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 类名, 文本型
.局部变量 句柄, 整数型
.局部变量 窗口标题, 文本型
.局部变量 窗口矩形, 矩形
.局部变量 桌面文本颜色, 整数型
.局部变量 桌面文本背景色, 整数型
.局部变量 桌面工作区矩形, 矩形

图标大小 ＝ 76
关机组合框.加入项目 (“注销”, )
关机组合框.加入项目 (“强制关闭无响应进程”, )
关机组合框.加入项目 (“重新启动”, )
关机组合框.加入项目 (“关机”, )
关机组合框.现行选中项 ＝ 0

桌面列表 ＝ 取桌面列表 ()
.如果真 (桌面列表 ＝ 0)
    信息框 (“Can't Find DESKTOP LISTVIEW!!”, 0, )
.如果真结束

文本颜色选择器.颜色 ＝ 发送消息_整数 (桌面列表, #列表_取文本颜色, 0, 0)
.如果 (发送消息_整数 (桌面列表, #列表_取文本背景色, 0, 0) ＝ -1)
    文本背景色选择器.颜色 ＝ #透明
.否则
    文本背景色选择器.颜色 ＝ 发送消息_整数 (桌面列表, #列表_取文本背景色, 0, 0)

.如果结束
可视 ＝ 真

桌面图标个数 ＝ 发送消息_整数 (桌面列表, #列表_取项目数, 0, 0)
.如果真 (桌面图标个数 ＝ 0)
    信息框 (“No Icons on DeskTop!!”, 0, )
.如果真结束

桌面 ＝ 取桌面句柄 ()
.如果真 (桌面 ＝ 0)
    信息框 (“Can't Find DeskTop!!”, 0, )
.如果真结束

.如果 (系统参数信息_矩形 (#系统参数信息_取工作区矩形, 0, 桌面工作区矩形, 0))
    桌面宽度 ＝ 桌面工作区矩形.右 － 桌面工作区矩形.左
    桌面高度 ＝ 桌面工作区矩形.下 － 桌面工作区矩形.上
.否则
    信息框 (“Can't Get the DESKTOP WORKAREA!!”, 0, )
.如果结束

' 输出调试文本 (“桌面宽度：  桌面高度：”)
' 输出调试文本 (到文本 (桌面宽度) ＋ “         ” ＋ 到文本 (桌面高度))

任务栏 ＝ 寻找窗口 (“Shell_TrayWnd”, “”)
.如果真 (任务栏 ＝ 0)
    信息框 (“Can't Find TASKBAR !!”, 0, )
.如果真结束

句柄 ＝ 寻找子窗口 (任务栏, #窗口关系_子窗口)
.判断循环首 (句柄 ≠ 0)
    类名 ＝ 取空白文本 (255)
    取窗口类名 (句柄, 类名, 255)
    .如果真 (到小写 (取文本左边 (类名, 6)) ＝ “button”)
        开始按钮 ＝ 句柄
    .如果真结束
    .如果真 (到小写 (取文本左边 (类名, 4)) ＝ “tray”)
        系统托盘 ＝ 句柄
    .如果真结束
    句柄 ＝ 寻找子窗口 (句柄, #窗口关系_下一个同级窗口)
.判断循环尾 ()

.如果真 (开始按钮 ＝ 0)
    信息框 (“Can't Find START BUTTON!!”, 0, )
.如果真结束

.如果真 (系统托盘 ＝ 0)
    信息框 (“Can't Find SYSTEM TRAY!!”, 0, )
.如果真结束

假开始按钮句柄 ＝ 假开始按钮.取窗口句柄 ()
.如果真 (假开始按钮句柄 ＝ 0)
    信息框 (“Can't Find the False START BUTTON!!”, 0, )
.如果真结束

句柄 ＝ 寻找窗口 (“BaseBar”, “”)
.判断循环首 (句柄 ≠ 0)
    取窗口矩形 (句柄, 窗口矩形)
    类名 ＝ 取空白文本 (255)
    取窗口类名 (句柄, 类名, 250)
    输出调试文本 (类名 ＋ “ ” ＋ 到文本 (句柄))
    输出调试文本 (“left=” ＋ 到文本 (窗口矩形.左) ＋ “   right=” ＋ 到文本 (窗口矩形.右))
    输出调试文本 (“top=” ＋ 到文本 (窗口矩形.上) ＋ “  bottum=” ＋ 到文本 (窗口矩形.下))
    .如果真 (类名 ＝ “BaseBar”)
        .如果 (窗口矩形.左 ＝ 2 或 窗口矩形.左 ＝ 0)
            开始菜单 ＝ 句柄
            跳出循环 ()
        .否则

        .如果结束

    .如果真结束
    句柄 ＝ 寻找子窗口 (句柄, #窗口关系_下一个同级窗口)
.判断循环尾 ()
.如果真 (开始菜单 ＝ 0)
    信息框 (“Can't Find START MENU!!”, 0, )
.如果真结束
置窗口位置 (开始菜单, 0, 0, 0, 0, 0, #位置_保持当前列表位置)

.如果真 (开始菜单 ≠ 0)
    ' 信息框 (“Successfully Found START MENU -> ” ＋ 到文本 (开始菜单) ＋ #换行符 ＋ “left=” ＋ 到文本 (窗口矩形.左) ＋ “     right=” ＋ 到文本 (窗口矩形.右) ＋ #换行符 ＋ “top=” ＋ 到文本 (窗口矩形.上) ＋ “    bottum=” ＋ 到文本 (窗口矩形.下), 0, “TEST”)
.如果真结束
假开始按钮左边 ＝ 假开始按钮.左边
假开始按钮顶边 ＝ 假开始按钮.顶边

@易语言学习论坛