镶嵌大图标到任务栏

易语言 2020-07-15 18:19:41

任务栏句柄 = 查找窗口 (“Shell_TrayWnd”, “”)
托盘区句柄 = 寻找子窗口 (任务栏句柄, 0, “TrayNotifyWnd”, “”)
取窗口位置 (托盘区句柄, rect)
新托盘区宽度 = rect.右边 - rect.左边
.如果真 (托盘区宽度 ≠ 新托盘区宽度)
任务栏中间句柄 = 寻找子窗口 (任务栏句柄, 0, “ReBarWindow32”, “”)
置窗口位置 (任务栏中间句柄, 1, 0, 0, 任务栏中间宽度 + 托盘区宽度 - 新托盘区宽度, rect.底边 - rect.顶边, 2)
取窗口位置 (任务栏中间句柄, rect)
任务栏中间宽度 = rect.右边 - rect.左边
置窗口位置 (_启动窗口.取窗口句柄 (), 1, rect.右边, (rect.底边 - rect.顶边 - _启动窗口.高度) ÷ 2, 104, 16, 1)
托盘区宽度 = 新托盘区宽度