闪动的托盘图标在2000下可以，在98下无效(50分)

我想实现一个会闪动的托盘程序，使用一个Timer，一定间隔执行下面的代码<br><br><br>&nbsp; aIconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;<br>&nbsp; aIconData.uID := UINT ( IDI_TRAYICON );<br>&nbsp; aIconData.cbSize := sizeof ( TnotifyIconData );<br>&nbsp; aIconData.Wnd := Handle;<br>&nbsp; aIconData.uCallbackMessage := TRAY_CALLCHAT;<br><br>&nbsp; IF ico_flag=0 then<br>&nbsp; begin<br>&nbsp; &nbsp; aIconData.hIcon := image1.Picture.Icon.Handle;<br>&nbsp; &nbsp; ico_flag:=1;<br>&nbsp; end<br>&nbsp; else<br>&nbsp; begin<br>&nbsp; &nbsp; aIconData.hIcon := image2.Picture.Icon.Handle;<br>&nbsp; &nbsp; ico_flag:=0;<br>&nbsp; end;<br><br>&nbsp; aIconData.szTip := 'test';<br>&nbsp; Shell_NotifyIcon ( NIM_MODIFY, @aIconData );<br><br>在win2000下运行正常，但在win98下却一点效果都没有，请高手指教

vb normal

用CoolTrayIcon吧，很简单的

我自己解决了，因为我要实现闪动效果，所以放第二个图标的image是空的，在98下<br>空图标不会自动刷新，只要换成一个透明图标就可以了。

多人接受答案了。