如何任意改变程序的托盘图标

Question

请教在windows 程序中，有些程序在WINDOWS右下角显示1个托盘，可以执行命令。如何将托盘改成生动有趣的图案或者是可动的动画GIF等等。谢谢

Answer 1

加个定时器，隔一段时间环图标
'   For show the icon we need know if
'   its the first time we call the method
Public Function Show() As Integer
    
    Dim nd      As NOTIFYICONDATA
    Dim nRet    As Integer
    
    If Not UserControl.Ambient.UserMode Then Exit Function
    
    '   For first time we use NIM_ADD
    '   else we use NIM_MODIFY
    If mbFirst = False Then
        With nd
            .cbSize = Len(nd)
            .hWnd = UserControl.hWnd
            .uID = vbNull
        '   This is necesary for catch the mousemove event
        '   with our form
            .uCallbackMessage = WM_MOUSEMOVE
            .hIcon = UserControl.Picture
            .szTip = ToolTip & Chr$(0)
            .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
        End With
        nRet = Shell_NotifyIconA(NIM_MODIFY, nd)
    Else
        With nd
            .cbSize = Len(nd)
            .hWnd = UserControl.hWnd
            .uID = vbNull
        '   This is necesary for catch the mousemove event
        '   with our form
            .uCallbackMessage = WM_MOUSEMOVE
            .hIcon = UserControl.Picture
            .szTip = ToolTip & Chr$(0)
            .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
        End With
        nRet = Shell_NotifyIconA(NIM_ADD, nd)
        mbFirst = False
    End If
    Show = nRet
End Function修改 Shell_NotifyIconA(NIM_MODIFY, nd)

Answer 2

我没讲清楚问题: 如何修改已有的EXE程序的托盘图标，

Answer 3

http://www.happygroup.net/dvbbs/dispbbs.asp?Boardid=24&ID=2328&replyID=18640&skin=0可能需要注册一下

Answer 4

可以设计时就加些图标.
你不会说是想改windows程序的exe图标吧.

Answer 5

就是想改windows程序的exe图标吧.