为什么我得trayicon不消失

[fantom]

程序是服务端程序，当有客户端连接时，程序缩成trayicon
但当全部客户端退出时，trayicon却不消失
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Shell_NotifyIcon(NIM_DELETE, @TrayIcon);
end;
为什么？？？
这样下来托盘区很快就满拉

[starmote]

语法没有问题，你跟踪一下，看该语句执行到了没有。
另外，FormClose时，Action变量应该赋值为caFree.

[iBear]

看来是的卸载语句没有执行到

[fantom]

是，刚才在后面加了一条showmessage
但当全部客户端退出时 没有反映，
想改用发消息

[fantom]

问题解决，谢谢大家