类_托盘.**峦信

pengtusheng

.版本 2
.局部变量 类_托盘, 类_托盘
类_托盘.**峦信

补充内容 (2019-12-22 14:37):
....怎么乱码了!             .版本 2

类_托盘.**峦信

大司命

  

子程序名	返回值类型	公开	备 注
托盘_更新

变量名	类 型	静态	数组	备 注
hShellTrayWnd	整数型
hTrayNotifyWnd	整数型
hSysPager	整数型
hToolbarWindow32	整数型
r	精易_矩形
hwidth	整数型
hheight	整数型
x	整数型

hShellTrayWnd ＝ FindWindowA (“Shell_TrayWnd”, 字符 ( #NULL ))  ' 任务栏窗口
hTrayNotifyWnd ＝ FindWindowExA (hShellTrayWnd, 0, 取指针_文本型 (“TrayNotifyWnd”), #NULL )  ' 任务栏右边托盘图标+时间区
hSysPager ＝ FindWindowExA (hTrayNotifyWnd, 0, 取指针_文本型 (“SysPager”), #NULL )  ' 不同系统可能有可能没有这层
如果 (hSysPager ≠ 0)
hToolbarWindow32 ＝ FindWindowExA (hSysPager, 0, 取指针_文本型 (“ToolbarWindow32”), #NULL )
hToolbarWindow32 ＝ FindWindowExA (hTrayNotifyWnd, 0, 取指针_文本型 (“ToolbarWindow32”), #NULL )
如果真 (hToolbarWindow32 ≠ 0)
GetWindowRect (hToolbarWindow32, r)
hwidth ＝ r.右边 － r.左边
hheight ＝ r.底边 － r.顶边
计次循环首 (hwidth, x)
SendMessageA (hToolbarWindow32, #WM_MOUSEMOVE, 0, 合并整数 (x, hheight ÷ 2))
计次循环尾 ()

.子程序 托盘_更新<br /> .局部变量 hShellTrayWnd, 整数型<br /> .局部变量 hTrayNotifyWnd, 整数型<br /> .局部变量 hSysPager, 整数型<br /> .局部变量 hToolbarWindow32, 整数型<br /> .局部变量 r, 精易_矩形<br /> .局部变量 hwidth, 整数型<br /> .局部变量 hheight, 整数型<br /> .局部变量 x, 整数型<br /> hShellTrayWnd ＝ FindWindowA (“Shell_TrayWnd”, 字符 (#NULL))  ' 任务栏窗口<br /> hTrayNotifyWnd ＝ FindWindowExA (hShellTrayWnd, 0, 取指针_文本型 (“TrayNotifyWnd”), #NULL)  ' 任务栏右边托盘图标+时间区<br /> hSysPager ＝ FindWindowExA (hTrayNotifyWnd, 0, 取指针_文本型 (“SysPager”), #NULL)  ' 不同系统可能有可能没有这层<br /> .如果 (hSysPager ≠ 0)<br />     hToolbarWindow32 ＝ FindWindowExA (hSysPager, 0, 取指针_文本型 (“ToolbarWindow32”), #NULL)<br /> .否则<br />     hToolbarWindow32 ＝ FindWindowExA (hTrayNotifyWnd, 0, 取指针_文本型 (“ToolbarWindow32”), #NULL)<br /> .如果结束<br /> .如果真 (hToolbarWindow32 ≠ 0)<br />     GetWindowRect (hToolbarWindow32, r)<br />     hwidth ＝ r.右边 － r.左边<br />     hheight ＝ r.底边 － r.顶边<br />     .计次循环首 (hwidth, x)<br />         SendMessageA (hToolbarWindow32, #WM_MOUSEMOVE, 0, 合并整数 (x, hheight ÷ 2))<br />     .计次循环尾 ()<br /> .如果真结束

https://blog.csdn.net/dpsying/article/details/20139651

大司命

pengtusheng

win10  **虏涣

补充内容 (2019-12-22 14:39):
靠~~~~~~~~~~~~  怎么打字全乱码!!!
类_托盘.**峦信

补充内容 (2019-12-22 14:39):
~~~~~~~~~~~~  怎么打字全乱码!!!
类_托盘.**峦信

pengtusheng

大司命 发表于 2019-12-22 14:37

用了!  我用了

  

变量名	类 型	静态	数组	备 注
局_托盘	类_托盘

局_托盘.创建 (, , )
局_托盘.销毁 ()
局_托盘.气泡提示 (, , , )
局_托盘.挂接事件 ()

.局部变量 局_托盘, 类_托盘<br /> 局_托盘.创建 (, , )<br /> 局_托盘.销毁 ()<br /> 局_托盘.气泡提示 (, , , )<br /> 局_托盘.挂接事件 ()

pengtusheng

大司命 发表于 2019-12-22 14:37

  

局_托盘. **新 托盘 ()

局_托盘. **新 托盘 ()

pengtusheng

大司命 发表于 2019-12-22 14:37

换台电脑看看还乱码不!
我是**缕渌绦

pengtusheng

pengtusheng 发表于 2019-12-22 14:41
局_托盘. **新 托盘 ()

pengtusheng

大司命 发表于 2019-12-22 14:37