马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
功能 创建拖盘(tip)
变量 hIcon = GetIconHandle(窗口获取自我句柄())//我们是第一次创建拖盘,所以需要图标
变量 NOTIFYICONDATA = CreateNOTIFYICONDATA(NIF_ICON + NIF_TIP,tip,"","",hIcon) //重构结构体内容
动态库调用("shell32.dll","long","Shell_NotifyIconW","long",NIM_ADD,"pstruct",NOTIFYICONDATA)//创建托盘
结束
------------------------------------------------------------------------------------------------------
//消息过程功能
功能 气泡提示_消息过程(消息,w参数,l参数)
如果(消息 == #632)
如果(w参数 == #80 && l参数 == #205) //右键单击托盘图标
PopuMenu(窗口获取自我句柄(),托盘菜单信息[0][0],托盘菜单信息,200,真)
//不通过消息路由的方式
//返回值=PopuMenu(窗口获取自我句柄(),托盘菜单信息[0][0],托盘菜单信息,200,false)
//菜单测试.菜单处理(返回值,托盘菜单信息)
返回 真 //这里必须给予返回,否则仍会在显示完自己的菜单后显示原TC托盘右键菜单
结束
结束
结束
为什么两个功能放在一起无法使用,鼠标经过托盘,鼠标右键没有任何反应
|