请求将【类_托盘】加入以下功能！

项目部004

模块里已经支持了的亲！

hmyroot

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
集_Proc	整数型
集_Msg	整数型
集_窗口	窗口
集_图标	字节集
集_托盘提示	文本型

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

载入 (窗口1, , 假)
返回 (0)

子程序名	返回值类型	公开	备 注
托盘自动复活			当任务栏被重建或Explorer.exe重新启动后,自动复活托盘图标(需要先用易语言自带支持库置托盘图标,_启动窗口.置托盘图标 (#托盘图标, “程序标题或文本提示”))
参数名	类 型	参考	可空	数组	备 注
窗口	窗口				易语言窗口名称(例子:_启动窗口)
图标	字节集				复活后显示的托盘图标(显示图标.ico)
托盘提示	文本型				复活后显示的托盘提示(文本标题提示)

集_窗口 ＝ 窗口
集_图标 ＝ 图标
集_托盘提示 ＝ 托盘提示
集_Proc ＝ SetWindowLongA (集_窗口.取窗口句柄 (), #GWL_WNDPROC, &NewProc)  ' 重新设置主窗口函数过程，拦截消息
集_Msg ＝ RegisterWindowMessageA (“TaskbarCreated”)  ' zc一个消息，任务栏重建时发送MyMsg消息，拦截此消息重新添加托盘图标。

子程序名	返回值类型	公开	备 注
NewProc	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd	整数型
uMsg	整数型
wParam	整数型
lParam	整数型

判断 (uMsg ＝ 集_Msg)  ' 任务栏被重建
' 集_窗口.置托盘图标 (, )
' 集_窗口.置托盘图标 (集_图标, 集_托盘提示)
asd.气泡提示 (“”, “”)
asd.创建 (集_窗口.取窗口句柄 (), 集_图标, 集_托盘提示)
如果真 (uMsg ＝ #WM_DESTROY )
' Shell_NotifyIconA (#NIM_DELETE, tmp)  ' 删除图标

返回 (CallWindowProcA (集_Proc, hwnd, uMsg, wParam, lParam))

.版本 2<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 集_Proc, 整数型<br /> .程序集变量 集_Msg, 整数型<br /> .程序集变量 集_窗口, 窗口<br /> .程序集变量 集_图标, 字节集<br /> .程序集变量 集_托盘提示, 文本型<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> 载入 (窗口1, , 假)<br /> 返回 (0)<br /> <br /> .子程序 托盘自动复活, , 公开, 当任务栏被重建或Explorer.exe重新启动后,自动复活托盘图标(需要先用易语言自带支持库置托盘图标,_启动窗口.置托盘图标 (#托盘图标, “程序标题或文本提示”))<br /> .参数 窗口, 窗口, , 易语言窗口名称(例子:_启动窗口)<br /> .参数 图标, 字节集, , 复活后显示的托盘图标(显示图标.ico)<br /> .参数 托盘提示, 文本型, , 复活后显示的托盘提示(文本标题提示)<br /> <br /> 集_窗口 ＝ 窗口<br /> 集_图标 ＝ 图标<br /> 集_托盘提示 ＝ 托盘提示<br /> 集_Proc ＝ SetWindowLongA (集_窗口.取窗口句柄 (), #GWL_WNDPROC, &NewProc)  ' 重新设置主窗口函数过程，拦截消息<br /> 集_Msg ＝ RegisterWindowMessageA (“TaskbarCreated”)  ' zc一个消息，任务栏重建时发送MyMsg消息，拦截此消息重新添加托盘图标。<br /> <br /> .子程序 NewProc, 整数型<br /> .参数 hwnd, 整数型<br /> .参数 uMsg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> <br /> .判断开始 (uMsg ＝ 集_Msg)  ' 任务栏被重建<br />     ' 集_窗口.置托盘图标 (, )<br />     ' 集_窗口.置托盘图标 (集_图标, 集_托盘提示)<br />     asd.气泡提示 (“”, “”)<br />     asd.创建 (集_窗口.取窗口句柄 (), 集_图标, 集_托盘提示)<br /> .默认<br />     .如果真 (uMsg ＝ #WM_DESTROY)<br />         ' Shell_NotifyIconA (#NIM_DELETE, tmp)  ' 删除图标<br />     .如果真结束<br /> <br /> .判断结束<br /> 返回 (CallWindowProcA (集_Proc, hwnd, uMsg, wParam, lParam))