如何使任务栏中的小图标动起来？(150分)

我的程序运行后在任务栏会出现一个小图标，但不知如何使它动起来？

在程序中设一个计数器,在OnTimer里面改变<br>图标，我在VC里面做过，Delphi里面做就简单<br>得多了，方一个ImageList，动态的更换Index行了<br>IF you have any error about it THEN <br>&nbsp; sendmailtome; &nbsp;<br><br>Good Luck!

如果你有一套Icon可配成动画的话,做一个timer,<br>定时更新Application.Icon

可以具体些吗?

RXLIB中有一个控件可以实现，如果你要用代码，我写一段你参考参考，可能有错，<br>Var<br>&nbsp; i:integer;<br>procedure time1Ontime.....<br>begin<br>i := (i+1) mod 10;<br>showicon(icons);//showicon是你用来显示ICON的函数，<br>end;<br>

RXLIB中有一个控件可以实现，如果你要用代码，我写一段你参考参考，可能有错，<br>Var<br>&nbsp; i:integer;<br>procedure time1Ontime.....<br>begin<br>i := (i+1) mod 10;<br>showicon(icons);//showicon是你用来显示ICON的函数，做个ICON数组，调入需要的ICON<br>end;<br>

下面控件里的例子可以实现任务栏上的动画小图标，是用Timer实现的。<br>&lt;a href="http://personal.wol.com.cn/grass/Trayicon.zip"&gt;Trayicon.zip&lt;/a&gt;<br>

我认为较好的方法是用“线程”来实现您想要的功能；因为TIMER在您的主线程忙的<br>时候是无法及时触发的；<br>具体步骤如下：<br>1、定义一个用于修改ICON的线程：<br>&nbsp; type<br>&nbsp; tchgicon = class(TThread) //用来改变图标的线程<br>&nbsp; private<br>&nbsp; &nbsp; current:integer;//用于指示当前显示的图标的序号<br>&nbsp; public<br>&nbsp; &nbsp; procedure Execute; override;<br>&nbsp; &nbsp; constructor Create;<br>&nbsp; end;<br>var<br>&nbsp; YouThread:tchgicon;<br>2、定义相应的方法和函数：<br><br>procedure Tfrm_main.modicon(mi:Hicon;mtip:string) ;<br>//修改ICON的函数<br>var<br>&nbsp; res:boolean;<br>&nbsp; ptndNotifyIconData;<br>begin<br>&nbsp; new(ptnd);<br>&nbsp; ptnd^.cbsize:=sizeof(TNotifyIcondata);<br>&nbsp; //cbsize为TNotifyIcondata的字节数<br>&nbsp; ptnd^.wnd:=frm_main.handle;//建立图标的父窗口的句柄<br>&nbsp; ptnd^.uID:=0;//为同组图标的统一标识符<br>&nbsp; ptnd^.Uflags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;<br>&nbsp; //表示下面三个参数是否有效<br>&nbsp; ptnd^.uCallbackMessage:=WM_USER_NOTIFYICON;//自定义的消息<br>&nbsp; //定义触发的消息标识<br>&nbsp; ptnd^.hicon:=mi;//定义图标的句柄<br>&nbsp; strcopy(ptnd^.sztip,pchar(mtip));//定义Mouse放在ICON上的显示的Tip<br>&nbsp; res:=Shell_NotifyIcon(NIM_Modify,ptnd);<br>&nbsp; //为NIM_modify表示变更ICON<br>&nbsp; dispose(ptnd);<br>end;<br>constructor tchgicon.Create();<br>begin<br>&nbsp; current:=0;<br>&nbsp; inherited Create(False);<br>end;<br><br>procedure tchgicon.Execute;<br>var<br>&nbsp; i:integer;<br>&nbsp; res:bool;<br>begin<br>&nbsp; { Place thread code here }<br>&nbsp; i:=1;<br>&nbsp; while (not terminated) do<br>&nbsp; &nbsp;begin<br>&nbsp; &nbsp; &nbsp;current:=((current+1) mod 4);<br>&nbsp; &nbsp; &nbsp;//循环current from 1 to 4 或者你想要的数目<br>&nbsp; &nbsp; &nbsp;myhicon:=icon[current+1];<br>&nbsp; &nbsp; //取得图标的句柄，可以存在一个图标数组或ImageList中<br>&nbsp; &nbsp; &nbsp;frm_main.MOdIcon(myhicon,'It is '+inttostr(current));<br>&nbsp; &nbsp; //调用改变ICON的函数；<br>&nbsp; &nbsp; &nbsp;sleep(1000);//定时为1秒钟改变一次<br>&nbsp; &nbsp; &nbsp;if Terminated then Exit;<br>&nbsp; &nbsp;end;<br>end;<br><br>3、在你向状态栏添加加图标时创建此线程：<br>&nbsp; YouThread:=tchgicon.create();<br>4、在你从状态栏删除图标时删除此线程<br>&nbsp; YouThread.destroy;<br>最后希望您能成功！<br>如果有何问题的话我可以传一个源程序给您。<br><br>

如果您是想改变系统通知区域的图标(SystemTray),<br>我提请大家注意, 调用Modify之前不妨再用一次Add,<br>这样可以保证当Ｅｘｐｌｏｒｅｒ崩溃时，　您的程序还可以<br>显示在那里出图标．　（我的Explorer经常崩溃，　虽然还会自动重新启动一份，　但是这时原先在ＳｙｓｔｅｍＴｒａｙ上的图标全不见了，　：（，自己稍微麻烦一下，　就可以避免<br>这个问题．：）

daiji:<br>您好！<br><br>您的方法我也十分感兴趣，能E-mail给我吗？<br><br>cgf@gzic.guangzhou.gd.cn

Delphi1998兄:<br>&nbsp; 您问的问题我也十分感兴趣，<br>&nbsp; 好东西大家一起来享用,<br>&nbsp; 能E-mail给我吗?<br>&nbsp; 谢谢!<br>daiji兄:<br>&nbsp; 能在您的Email的抄送栏里填入:<br>&nbsp; xftang@263.net吗?<br>&nbsp; 谢谢!<br>

好的！

好的！

邮件打开后都是乱码，可以用附加文件的方式传送给我，好吗？<br><br>非常谢谢！<br><br>

我是用附加文件的方式传送的，附件是源程序的ZIP包；<br>看在150的份上，只好再传一次了

------net911024964-ease1250----<br>Content-Type: multipart/x-zip; name="/youwant.zip"<br>Content-Transfer-Encoding: base64<br>Content-Disposition: attachment; filename="/youwant.zip"<br><br>UEsDBBQAAAAIAC26bSUWUGxfJAgAAF0YAAAOAAAAd3N0YXR1c2Jhci5wYXPtWN1vG8cRfzfg<br>/2EfiuhYsyRlq0FxBB9sUh8ETFIwqRqB4QrHuyW59d3t5XZpmQn6x8RGG0N10SiSLKGOlbRW<br>kVjWh2sZdeCXvrhFmiAP6YNR1HXR2b29D36IcowgfSkfpN3Z2dmZ2d/MzlzXJRwtMW7wLmsa<br>fv7kiZMniMux3zJMLCZdhtnJEwhdJK5Fl1gaVTBjRhvDqN5jC5zYMCraBmOCNOsbXoeYgkRd<br>7lOxOEN9B/6ViGHTNksLYayDbdvwCMjgVpH7tpTrduHf9DWuCKVzajDrE0vOw0FTCimdaxhN<br>G8uzHMXaoNQGTcEMk7qMg9qVxYX69IXFaq1RnnmrXKxVC4p0ajKXywEj73lYiONmp01gFyog<br>U5ijNRodHxtWCmWzh/c+WdvcXnm299HKl+vbB39Z3RU7PJ9cNbjcjJDZ9X3scl04r42FIwXV<br>8ynHJsdWNDWx1fUxmInNLsd5RK9iH8zC4YZu0yamEilM8Lsmpz4qgio8YMKuJa8pVLzR8p1F<br>xyAJzYXLU4GQeep1PeHbSR01ook6jXXokqALUpljR5HxNcJHkCtwRigpHKul6pvD7I4QM4Lc<br>AWuHyY0RBxZH0M4bTWwLuhzEblZ+NTxPHKvVwUvYB7Za8+dwAakhRuGiok0ZHmTNo6uGj86a<br>nFAXiJInmB0hRN7M8QdKXxfhcq8czyt99Iq8jXFCk3B6F83LGbIwwMQ3hEkM/UIhQWYAvdkD<br>kGWz977Yeb7z6cY3q7sP//FkbffW4JkXK3E8acJdDmvDyU6QGlAqH46Gww+hIQtK2C4D1ofo<br>Zy1L0DWD6HMiMvOgsqdDSBC3PeyHSi3gdkJuZxw3KFYhLnHIOzgyYLT+9bfqxVqlcrZaGoo+<br>5FFGhBsLPjapbwm6OOaafr5WnS1XG6GtvQFCKAROFvMwgPU4liWf0+sIS/Q54ThJ6dGupBi+<br>b/TQpclMZuoybaGYAdIQKKVzj0IikhTGlBMuvZm7LCm8o1KdHuY8SV7qEMUJU+J4NnYgoUmY<br>CF3f/cEF9MNMaaYCiEmgL1Q4Y2Fbps98ZJaPAVCQkAMkctfS56uUk1ZP3FPJ4IbgbeI2cQWD<br>i5c0wZSK2H+WMZsMLkgviL+0pTXi7RZsT3IugfRCpEvHcC0bJ5a75ZJeyCUICy3baDO9UC3P<br>LFam6/Wzs9MI0qyYSpSqcaM8n5RSNGy7aZhX1BuoF4bxnQ8tL9TFI7cYq6xVy5VFwDrmOB0b<br>ahHmiSwUUkJojHKxYVnkyID43h2fzQZc+8sDy+vbT/589+nOy2NuJ5u9e/P314MndXNz7YOP<br>n65vbz1b+dfQrWWz+8t7t578PWDdW310Z+XLndsbL177NrPZla93tg7+cO9vn73cfP7h/s5L<br>kewOHz58/zXuOpu9ffPRX9d+uXEdKoMXB9eFbrGYIIALBskHfIENoZlwdSb1elrAy96B60x7<br>ZsfwNXGzqZTaVKFQhW388fFTcej9Azjn8c7W+naDeOPBBgk0gbRsdv3pozuBvfvLal04Yvfr<br>jw6F5Bt3ArZgMUCqWL+/tfpSrCdXHWrBSWJ15dnmv8PVQTDHqS2jHpjC5DEYF4KPTOPfBuP/<br>h/j3C3Hn20Lc+S4gXpE4TKCctGLM/ZQwAh1CAYpoDK8ellhAKIIF/KBehGdLPnIZIVTdnDRH<br>sUTiRq8HYP6fhFcYR8lGIXzSM6ouTSXjIGxS1FNI3A72CXQnqr3QZgyb4dGvUCQ37FyiSCR9<br>PU8iLqNjofK0oZ2EKxANFfQ1FkZwMg6KTxIkBVmA2BhpLuUIGlCHuKAStF8WlY5O3lpkh6ap<br>4anJFAKnoSkBqD/95s6GosPtUQdNIk7RlNocVlUFVUxdikRcHongJASiIjOQkZ4oc0QYmjgF<br>LuAULiHUJxWWnK8CyAHr5C7X1EgkQ1L0ApEmnj6DYnqIPvgxG2NPE11t8uxG5El5IDSeJKgL<br>oyJ0XDaGQl/Gm0zJQ4V+H7bgLFjM2B60Fo7IJBfOLTQatWqpdrF6RPAtEd5BzPQx6KVueZBF<br>/GYxL3Z9Rv15yrSgwO33TAtdVY5tCQD3e1b8ZO+VKRqebOoKEyK5aG/UUxMJLgw7x2569J8P<br>P9femEtNoLyM9pUWNbvsk68+Xr5xa+2BJ1pr6Hnd7pPHt3978GLn/Ru/6xNXxxzaRdz2ade1<br>gq8pWpBMUnkQN0N8xvW7v17ZOvzV4b37X+wvf/rB7s0+CfIIccJkRjbyyheZaz/6SS6txr0+<br>z4j2n3GV3tVpabia6sL58+lcOidPZlg8avrG9Qd7aknk+M1/Bpq8d6NPnrjiC5h1bR5GrfzF<br>MAxG4zE13HqNhdTFAFL1YrTvCDyhsEAOIzvqdDJxjKcnOGZ8IvZTpNhc/BkG9BcDgYlRatTg<br>laxMVxf6kKY0CacJEQGphFsG+G1O3oKvVVj72Hr/6I8ZiSro3KtWQbE3ovSa76cvGYS3aJDI<br>o4IteCtM8R0E8uPeg9Xn47V+3S8rr2NSNnvwmXg/H74ncrbCTKA5KJ64HtWd9t9IH3bijbmB<br>BPKdoQpEBcYXTMOlbgJsxybi8V+alOuW3tYbb3ex30u6KNR68rJesKkRvF9zBCoGwzVxekIs<br>nlaKh7ynx/CeGeA9M4Z3aoB3agzvjxVvsiKTTg4rrtiQftTqhag2MeOaJwZw7pgoG/9hLvLj<br>4COuF0ShMkg95qzxH/biOk0G23hRY777xREP71cHm1ewFWgbz/MqVmJKAvQt8cWe94SNLVbn<br>Rq/mNqjXHzt9PFWYGHZCYfifOXniv1BLAwQUAAAACAAtuG0lYiLAtCgCAAAFBAAADAAAAFB3<br>c3RhdHVzLmRvZmVT23LaMBB9Z4Z/yBd0TCA0mYwfuKXQcGvMpW0mD0LegoKRXElOoF/fPTIk<br>ZDKeOTpndyXvHsuPHbPLVUb2qVppxbVqpR1H1UoHrAvoQd4BvkH2AQPAd8A9EkOwEdgYbAKY<br>An4g9gBIADPAHLBAdgn2E+wX2G+wZGNe+0p7dxJLYbXS66DnWvlWpoQjFy+Vnh3ykqTm1d3y<br>OrVGvge6K1VWtLs9iDJ7FD1rS16tVCuPQ6W3wYCRyO/YC7QzKXxe+Mnq2QU/jHYmo1aeB2No<br>VawH+o9BaqR04oXcJuofxbVm/bqBc/ZnsahxffW1ybbtxJra3H7cqN006hEX9vbUJSetyr0y<br>Og7ddJUl6Y1V5J5OfXAsLg041wkJKzdT4Tcspvw+Pt/FLzLb16PbRWfIyCJdnVaElSYfIiAo<br>k1myy5n8tTm0JypUuYYyXhlT5xgH7d5iPKuXfqQKLYvMxUdDElNYSdwZInNHbw1FYaypsGJH<br>niymeih00CjtG+fZ2ExJ8W7CgutYXMBlrh9omRUpcfRke6vwhqPtQmVp+Azi2VjOh7uodMlx<br>/SgjWM70rTa0CzK1dJZPcpJKZGVCvQgfot3hMFxyIwXfjMvo6hLjpzzemuKbevNTuxf3dMCM<br>+LGEPox5ap4J9+rjp0bkuC+ufYnwYFB2iF097hrSWmQdkx+sWm/8KTCzIqWdsFvYN+GU4h04<br>Tpe7+KqnhfTjD+rTq7i/HeFXq1b+A1BLAwQUAAAACABbum0lDARfw1sDAABjBwAADgAAAHdz<br>dGF0dXNiYXIuZGZtxVVNTBNBFB5a6P4UlIMxxot7IuVCLCZGTgILCAnFhl0jN1zagU7c7ja7<br>0wBe7NGj18YT8aYkKohiQCFq4g/UGiRKiAcuJsaD4aBIorLOzLbdFgyJHvTtzs773nvzdt7L<br>zreOCNSu/shgpK2nDxyvj3IAqNGu44I6bCUHkxoy+KJS3QuHsf8L8Ktmyv8UBNtNKw6tnphp<br>2MHaIaSM2xgmI9BIi0MoggyURJdgMUrB4zrk+CFbQcYI0WQthZFpBOru3VqezM3f+fTy8eLP<br>cK2sI2jgbohGEtgnB114HsVxwp8HtV2mgZvkhGbZEHMHOzq72s71qoNyd1u/0qmKrtfUTYur<br>jennkRE3R1U4hoPMUcj5VWCoT0vCQF1EkRTNsCUFWmjYXc/2GQQCraqpQ8OauOMDRKrIJUn1<br>VAUfieUwmUNkSGS0Mn8182VY9O8kw26QybgTvYiyuLhIZmpx2A0cx53oRU308TciZLPZq5Ww<br>3JB1pdLtBWSLUukuBuzGWU/+C6b7uTZHobe/ubkHJQxK2IU0gOFSQwq4CEkAxbsaWAb/pTjl<br>snHMcTIc+Sr8zg6ocn4Q9zYAl+nYBOD0fqMYR9fQtTQHy0Vz7iPV9ExzQoRQANXCfNS0ET29<br>3IGUqcQsCA2ZHFNocWcNWTdtyJFDZiWZyhOTBTUMOZHZmF4XRWNQt6OEPIxYwndBpMe0cEDr<br>QEDt1YagHmDPMCMdH+Mc35Ealwpeg0Ahur5EJEc7oJ5KoHBLy6n5ZzNPZrdfrcy/uf92Y/b6<br>RCVvHDjT3nwi3PxntLFZRhvBhcnlD4NulgrSEKOaRfpATTwAoho1U+kU48OSFhba0thkkHfp<br>dNul01AVEFQa0UM4tMZOmKPhUmlCflV6+SjUoDRyHXBYS+tYEPq1ODJprMCajmIXOZGtYjoo<br>S+aTvUzi8wlJyn8PNciN5SE1cAzhsqjckiRNb4UaBhpLyTktlaJRgK0rfAneJ+HWcqVqby2+<br>vpNe4vyMJOWmaSXlb08mUNz7IwRWdiRpaq26Gxk4cOjhzbff7t5eWF/ZmVp7deP1BP1V8ErC<br>tLCcxv7uVq96lmVv9apXF//u/er6u88v8l4C1UvAqXt7V5OkNXtbcxvjbo3PLU1v5Wdy0162<br>gdbf9QuAX1BLAwQUAAAACAD6SxslIlcTh78AAABDAQAADAAAAFB3c3RhdHVzLmNmZ0WPywqC<br>QBSG94Lv0MJdCUpmUrTQtJuXrCwr3HjLBkxlXERv3/gbNItvvvOfw2FGFPQhz4mCIXZcwk3Q<br>QrIC10g24BbcgTa6DtyFe/A96IMH5EfwBAbgGbxgJoRf4Tf4XWZMCwY9JFXwafJ2wSSr3+2c<br>3T6t039gJqSfMEyrK/rur7Ao7Z3twg/CDi6eLKtjTRnJkqJNpipLbEGSFKk7rHC8bBY1tC5o<br>/Bo8SJm3UVLTMq6yKMvL5kmUyCEJz30BUEsDBBQAAAAIAEi5bSXt49MeDgIAAHQQAAALAAAA<br>eW91SWNvbi5yZXPtlrtOw0AQRcePENLEKSiRnJKWVx0kKhr4pFgIidatlS9BaQz8iEvKlCki<br>lpmx195XnEQKeSBuMjLXu7OamHsIAABDLCHKMvXly/UAy+N7g0F4Ktcvqv47LA9Cvpf4sEQJ<br>vyFJygu98Ic8z/FKdwS/aRC+0Ivncgy2FWUowyo3eqVP9eV6Q0/6VF+WGwzfa3zq9NPpm+Gn<br>G3q9P6uVrjOf9XnMz2s9D/N5Wc9zixIuzSIh8kCIxOOYfAOMFwAjqjlA3FZyH/VwxOgMOovO<br>dOgMyqwL0YcHuIcneITbajaVB6LAg+FwwDQQPZ7BkG/1HDdDK9TTEoN2grFVI0RejRh7JYLs<br>lYiWPq19xrE3I57txTfMpU7fNJS23mD+jZG22qA9QM1uImewpYoYGehiSgLkyBPIhkBOxlQz<br>5KSt5L4FM+jxGXwWnanIxdBNNVs7Q77BUGD1HDVDFiP679zIhJmZTEpfXpbBrFGrx68T1U82<br>9GY/aa359svIKrnQ2QU7Ui6GrqvZ2hkKDIZCq+egGTpIRn7Ll99zZJv5psr3HNS+tLSBvcII<br>e2lxA/ndMLJKWqB3yI6Ui6GrarZ2hkKDoY7V86f/l/vXwcjM9AK6yI0nkItxgWy8v85Gn3Ae<br>f0A/fgY/egHgwoRFOV5zOIkKrBn0oznMI2QowlTF1Ivr4xxtASMbnkouhi6r2doZ6sAPUEsD<br>BBQAAAAIAB24bSVPeraY9gAAAFsBAAAMAAAAUHdzdGF0dXMuZHByKyjKTy9KzFUIKC8uSSwp<br>Lbbm5eLlKi1OLeblUlAIz8xLyS8v1gGx3fKLciEsqMqkxCKFzDwFdQRXryCxWF2hOq0oNz43<br>MTOvFmxWtUqQgl5MZX6pZ3J+nl6Qa3AtSDQpNT0zD2SYY0FBTmZyYkkmUNIzL7MkMzEnsyrV<br>GkMKpNkjMS8lJ9XKNic/MSUTKKCRkZkHtDwvOVVHPa00OdtIXdNaQV//8uHLt06+uHb4+rvN<br>X7ceOb/17ObzV07tQzcxJLMEZJb6tvVn1pzds/HVqUMH/qpj2OtclJpYkgryu0YIzF86CjCW<br>Job6oNI8oFhqXooeLxcAUEsDBBQAAAAIABlkhyTBB/Jp2wAAAGwDAAAMAAAAUHdzdGF0dXMu<br>cmVzxVM7DsIwDH1pKwEL6sBOR0ZuAIiJATgSOQJrxElQlx6FkZGRAWFsp+lPUDHBS57cZzvR<br>U1QDQMYk8uziGoV6zDSaS9NkGOqz8vySaZBozkb4AKsb1vogiz+KouAoGdItRjTIUl9vjH2D<br>kXPu2JbNhPNol+sGF9Auh4audjX+osXPKRdZ+8vzc6VRaS+lQXX1IKUOkhtEdx6wIX8JauIy<br>JbID/itiesLQg8t34CC8AYs+hj45I2flDr1L7uzBhD3M1ccYW6ywwY65xp5jQHMuZBoMsizV<br>qZApMngBUEsBAhQAFAAAAAgALbptJRZQbF8kCAAAXRgAAA4AAAAAAAAAAQAgALaBAAAAAHdz<br>dGF0dXNiYXIucGFzUEsBAhQAFAAAAAgALbhtJWIiwLQoAgAABQQAAAwAAAAAAAAAAQAgALaB<br>UAgAAFB3c3RhdHVzLmRvZlBLAQIUABQAAAAIAFu6bSUMBF/DWwMAAGMHAAAOAAAAAAAAAAAA<br>IAC2gaIKAAB3c3RhdHVzYmFyLmRmbVBLAQIUABQAAAAIAPpLGyUiVxOHvwAAAEMBAAAMAAAA<br>AAAAAAEAAAC2gSkOAABQd3N0YXR1cy5jZmdQSwECFAAUAAAACABIuW0l7ePTHg4CAAB0EAAA<br>CwAAAAAAAAAAACAAtoESDwAAeW91SWNvbi5yZXNQSwECFAAUAAAACAAduG0lT3q2mPYAAABb<br>AQAADAAAAAAAAAABACAAtoFJEQAAUHdzdGF0dXMuZHByUEsBAhQAFAAAAAgAGWSHJMEH8mnb<br>AAAAbAMAAAwAAAAAAAAAAAAgALaBaRIAAFB3c3RhdHVzLnJlc1BLBQYAAAAABwAHAJkBAABu<br>EwAAAAA=<br><br>------net911024964-ease1250------<br>请dai ji大虾传到论坛上下载可以防止以上情况的出现。谢谢。<br>以上是接收到的邮件内容。

你应该将该ZIP文件保存到本地，再用WINZIP解压。如果不行<br>试试这个链接：&lt;a href=http://www.nease.net/~lgldj/youwant.zip&gt;youwant.zip

谢谢dai ji的程序,用进程的想法的确很好.<br><br>请斑竹为dai ji--&gt;100分,littlegrass--&gt;50分

为何斑竹还不分配分数给dai ji和littlegrass两位大虾呢？

版主很忙啊!不能总来看所有贴子,<br><br>幸亏多人得分系统快做好了,<br>不然大家最好还是用e-mail通知版主<br>分配方案.