TTrayIcon用法

 self.trycn1.Icon:=Application.Icon;

  Self.trycn1.Hint:=self.Caption;

  self.trycn1.Visible:=true;

  关闭时

  begin

  self.trycn1.Visible:=false;

  Application.Terminate;

end;

procedure TForm1.trycn1DblClick(Sender: TObject);

begin

  ShowWindow(Self.Handle,SW_RESTORE);

end;