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

[FreeBrain]

А как программа будет искать консоль? Где именно нужно писать это все? И программа же должна будет еще обрабатывать меню, которое должно всплыть по нажатию на ярлык в трее.
А как иконку в трей и обработчик писать?

[DIgorevich]

Программа будет искать ее точно так же как и консоль саму себя искала... Код писать по OnCreate главной формы. Чтобы иконку в трей поищите тут на форуме... Если не получится - завтра обязательно помогу.

[FreeBrain]

Спасибо огромное! Я тогда поищу. Но боюсь, что еще будут вопросы))

[FreeBrain]

Сообщение от DIgorevich

Код писать по OnCreate главной формы.

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

[DIgorevich]

Всё получится. Вы при запуске основной программы, прячете консоль, и рисуете иконку в трее.

[FreeBrain]

Спасибо еще раз))
Буду пробовать))

[DIgorevich]

Единственная ремарка, Раньше Вы прятали консоль, получая заголовок (это был путь). Теперь же Вам путь будет неизвестен, но можно сделать так:
В пакет Delphi входит специальная утилита для отслеживание всех активных процессов, она называется WinSight32. Вот ею мы и воспользуемся. Запустите её, покопайтесь в списке процессов, ищите строку где значится текущий заголовок нужного окна, например Блокнота, и в левой части этой строки в фигурных скобках вы найдёте имя класса окна. Для блокнота это будет "Notepad". Теперь зная имя класса окна мы можем спрятать окно таким способом:

ShowWindow(FindWindow('Notepad', nil), sw_hide);

[FreeBrain]

Запустила. Блокнот нашла)) А вот свое окно нет. Там должен быть заголовок прям написан, т.е. путь? Такого точно нет. Это может быть?

[DIgorevich]

[edit]

procedure TForm1.btn1Click(Sender: TObject);
begin
   ShowWindow(FindWindow('ConsoleWindowClass', nil), sw_hide);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
   ShowWindow(FindWindow('ConsoleWindowClass', nil), sw_show);
end;

[/edit]

Вам код, для скрыть\показать консольку.

[FreeBrain]

Прикладываю консоль. Спасибо!