Свернуть консоль в трей

[FreeBrain]

Я так поняла, что основной, но лучше я послушаю опытных товарищей))

[DIgorevich]

Через 5-10 минут я Вам дам пример.
Только скиньте, пожалуйста, консоль с уже уникальным заголовком.

[FreeBrain]

Знаю, что сейчас туплю, но задам еще раз вопрос, чтобы точно понять.
Запуская приложение, я запускаю экзешник. Мне все, что вы рассказали про скрытие консоли писать в проекте с таким же именем, как у этого экзешника или все-таки в проекте с именем первой формы, которая появляется?

Прикрепила

[Hacker19_90]

Если не ошибаюсь!

const
  WM_MYICONNOTIFY = WM_USER + 123;
type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMICON(var msg: TMessage); message WM_MYICONNOTIFY;
    procedure CreateTrayIcon;
    procedure TForm1.DeleteTrayIcon;
  end;

var
  Form1: TForm1;
  nidata: TNotifyIconData;

implementation

{$R *.DFM}

uses ShellApi;

procedure TForm1.WMICON(var msg: TMessage);
var
  P: TPoint;
begin
  case msg.LParam of // обработка обратных сообщений
    WM_LBUTTONUP: //по нажатию левой клавиши, WM_RBUTTONUP по правой
      begin
        GetCursorPos(p);
        ShowWindow(Тут хэндл консоли)
        PopupMenu1.Popup(P.X, P.Y);
      end;
    WM_RBUTTONUP: PopupMenu1.Popup(P.X, P.Y); //как Default
  end;
end;

procedure TForm1.CreateTrayIcon;
begin
  with nidata do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Self.Handle; //HWND вашего окна (окна принимающего обратные сообщения)
    uID := 1; // номер значка
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; //обрабатываемые флаги
    uCallBackMessage := WM_MYICONNOTIFY;
    hIcon := Application.Icon.Handle;
      // то откуда сдергивается значек это может быть и ImageList и т.д.
    StrPCopy(szTip, Application.Title);
      // всплывающая строка, может быть любой string главное с нулевым окончанием
  end;
  Shell_NotifyIcon(NIM_ADD, @nidata); // добавление значка
end;

procedure TForm1.DeleteTrayIcon;
begin
  with nidata do
  begin
    cbSize := SizeOf(TNotifyIconData);
    Wnd := Self.Handle;
    uID := 1;
  end;
  Shell_NotifyIcon(NIM_DELETE, @nidata); // удаление значка
end;

[DIgorevich]

Что-то я никак не могу аккуратно закрыть консоль... Она в процессах остается висеть, а убивать не стоит!
Вот пример кода:
Project2.rar
Обратите внимание на uses. Будут вопросы - обращайтесь, или, если хотите, перепишу Ваш код.

[FreeBrain]

Спасибо огромнейшее! Сейчас посмотрю. Наверное, еще обращусь за помощью...
Еще и 2 варианта))
Тут я совсем наглею. А возможно, чтобы консоль пряталась при нажатии на стандартную кнопку в верхнем правом углу, а разворачивалась уже из меню в трее? И чтобы из меню трея можно было просто закрыть консольное приложение?

[Hacker19_90]

Вот надо onDestroy формы до работать а то:
1)После закрытии программы иконка остаётся а толка от неё нет.
2) Если была скрыта консоль, то при закрытии программы исходя из п.1 мы её не покажем.

procedure TForm1.FormDestroy(Sender: TObject);
begin
    Form1.DeleteTrayIcon(1);
    ShowWindow (FindWindow(nil, 'PrServer'), SW_Show);
end;

Да я просто представляю что будет если к примеру запустить несколько копий основного приложения(бедная консоль и трей).

[DIgorevich]

Лучше консоль из трея не убивать, а закрывать правильно (* энтер). Сама консоль прятаться в трей не будет.

[Hacker19_90]

Вот поэтому и надо в онДестрое консоль вывести на рабочий стол

[DIgorevich]

надо конечно, я этого не писал, т.к. и без того понятно.