求救！鼠标右键点击托盘的相关消息路由或者消息过程

yhmjh

求救！鼠标右键点击托盘的相关消息路由或者消息过程该怎么写？就是鼠标移动到托盘，鼠标点击右键，然后触发一个事件，这个怎么写？求大神看看

cjxdn

http://bbs.tyuyan.com/thread-50685-1-1.html

yhmjh

cjxdn 发表于 2015-7-17 15:26
http://bbs.tyuyan.com/thread-50685-1-1.html

就是用了里面的也不行

yhmjh

function 创建拖盘(tip)
    var hIcon =  GetIconHandle(windowgetmyhwnd())//我们是第一次创建拖盘,所以需要图标
    var NOTIFYICONDATA = CreateNOTIFYICONDATA(NIF_ICON + NIF_TIP,tip,"","",hIcon)   //重构结构体内容
    dllcall("shell32.dll","long","Shell_NotifyIconW","long",NIM_ADD,"pstruct",NOTIFYICONDATA)//创建托盘
end

这个消息创建的托盘收不到鼠标的消息，就是消息过程收不到，没有反应，求解？

//消息过程功能
功能 气泡提示_消息过程(消息,w参数,l参数)
    如果(消息 == #632)
        如果(w参数 == #80 && l参数 == #205)    //右键单击托盘图标
            
            PopuMenu(窗口获取自我句柄(),托盘菜单信息[0][0],托盘菜单信息,200,真)
            //不通过消息路由的方式
            //返回值=PopuMenu(窗口获取自我句柄(),托盘菜单信息[0][0],托盘菜单信息,200,false)
            //菜单测试.菜单处理(返回值,托盘菜单信息)
            返回 真        //这里必须给予返回,否则仍会在显示完自己的菜单后显示原TC托盘右键菜单
        结束
    结束
结束