TrayIcon 让程序运行在托盘

此功能会用到Additional里的TrayIcon控件，

如果右键需要打开菜单，还要用到Standard里的PopupMenu控件。

以下程序在Windows 7系统中，Delphi2010验证通过。

//图标信息设置
procedure TForm1.FormCreate(Sender: TObject);
begin
    TrayIcon1.Visible:=False;//True;//在托盘显示程序图标
    TrayIcon1.Hint:=Application.Title+#13+'www.evelee.net';//提示信息
    TrayIcon1.Icon:=Application.Icon;//图标
end;

//把程序最小化到右下角
procedure TForm1.Button4Click(Sender: TObject);
begin
    TrayIcon1.Visible:=True;//在托盘显示程序图标
    Self.Visible:=False;//在任务栏隐藏程序
end;

procedure TForm1.N1Click(Sender: TObject);//右键菜单方式
begin
    TrayIcon1.Visible:=False;
    Self.Visible:=True;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);//单击方式
begin
    Self.Visible:=True;
    TrayIcon1.Visible:=False;
end;

//在托盘关闭程序
procedure TForm1.N2Click(Sender: TObject);//右键菜单方式
begin
    Self.Close;
end;