请教高手们,delphi图标象MSN显示方式的问题(急) ( 积分: 100 )

我有一个应用程序,发布安装后图标在任务栏的右边的时钟通知区域里,<br>当最小化时&nbsp;程序的图标怎么可以象MSN那样放在任务栏上面呢??谢谢!<br>procedure&nbsp;TfrmMain.WM_SysCommand(var&nbsp;message:&nbsp;Tmessage);<br>begin<br>&nbsp;&nbsp;if&nbsp;message.WParam&nbsp;=&nbsp;SC_MINIMIZE&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;Application.Minimize<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;inherited;<br>end;<br>并将窗体设置成了MAINFORM&nbsp;&nbsp;!<br><br>这样不行&nbsp;,请问怎么办呢?

我是改别人的代码,&nbsp;我发现了他写了<br>SetWindowLong(Application.Handle,&nbsp;GWL_EXSTYLE,&nbsp;WS_EX_TOOLWINDOW);<br>我去掉了&nbsp;&nbsp;现在就是最小化时图标可以在任务栏上显示&nbsp;&nbsp;,但是显示后马上就消失了<br>不知为何,&nbsp;可能怎么造成的呢?

这个我以前做过，但不记得了

楼主是不是要托盘图标啊？

是的呀!&nbsp;现在就是最小化时图标可以在托盘上显示&nbsp;&nbsp;,但是显示后马上就消失了<br>curIcon:=TIcon.Create;<br>&nbsp;&nbsp;try<br>&nbsp;&nbsp;&nbsp;&nbsp;ImageListIcons.GetIcon(0,curIcon);<br>&nbsp;&nbsp;&nbsp;&nbsp;nid.cbSize&nbsp;:=&nbsp;sizeof(nid);<br>&nbsp;&nbsp;&nbsp;&nbsp;nid.Wnd:=&nbsp;self.Handle;<br>&nbsp;&nbsp;&nbsp;&nbsp;nid.uID&nbsp;:=&nbsp;1;<br>&nbsp;&nbsp;&nbsp;//&nbsp;nid.hIcon&nbsp;:=&nbsp;curIcon.Handle;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;nid.hIcon&nbsp;:=&nbsp;application.Icon.Handle;<br>&nbsp;&nbsp;&nbsp;&nbsp;nid.szTip&nbsp;:='终端备份系统';<br>&nbsp;&nbsp;&nbsp;&nbsp;nid.uCallbackMessage&nbsp;:=&nbsp;MY_MESSAGE;<br>&nbsp;&nbsp;&nbsp;&nbsp;nid.uFlags&nbsp;:=&nbsp;NIF_ICON&nbsp;or&nbsp;NIF_TIP&nbsp;or&nbsp;NIF_MESSAGE&nbsp;;<br>&nbsp;&nbsp;if&nbsp;not&nbsp;Shell_NotifyIcon(NIM_ADD,&nbsp;@nid)&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ShowMessage('启动程序时出错，请检查是否完全安装');<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Application.Terminate;<br>&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;finally<br>&nbsp;&nbsp;&nbsp;&nbsp;curIcon.Free;<br>&nbsp;&nbsp;end;

试试TrayICON控件在Torry.net上很多.

谢谢&nbsp;&nbsp;xnetec<br>问题是DELPHI&nbsp;&nbsp;默认的是可以在托盘上的&nbsp;&nbsp;别人加了代码隐掉了图标&nbsp;&nbsp;我用了控件还是会被隐掉的代码隐去的&nbsp;&nbsp;&nbsp;现在是图标可以在托盘上,&nbsp;但是在托盘上显示后就消失了&nbsp;&nbsp;上面就是代码不知有什么问题&nbsp;&nbsp;或者&nbsp;有什么设置的东西&nbsp;影响图标