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

Доброго всем времени суток)Начинаю изучать Делфи и у меня такая задача возникла. Есть приложение, которое требует, чтобы отдельно запускалась консоль. И эта консоль висит все время работы программы. Мне нужно свернуть ее в трей. Я не нашла как это сделать. Подскажите, пожалуйста.Посмотрела все, что есть по этой теме на форуме. Но везде сворачивали формы, а у меня консоль. Я предполагаю, что разницы быть не должно... Но как-то не получается.
3 ответа

Нет такого понятия как "свернуть в трей". Можно только показать/изменить/удалить иконку в трее и хинт к ней. Эта часть зависит только от того используется Explorer в качестве оболочки или нет.Так что задача - спрятать консольное окно.Получаем его хендл:
FUNCTION GetConsoleHandle: HWND;          VAR           Handle : HWND;           OldT : String;           NewT : String;          BEGIN           SetLength(OldT, 1024);           GetConsoleTitle(Pchar(OldT),1024);           NewT := IntToStr(GetTickCount)+IntToStr(GetCurrentProcessId);           SetConsoleTitle(PChar(NewT));           Handle := FindWindow(nil, PChar(NewT));           SetConsoleTitle(PChar(OldT));           Result := Handle;          END;
Прячем окно по хендлу
 Handle := GetConsoleHandle; if (Handle <> 0)    then ShowWindow(Handle, SW_HIDE) ;


По сути не надо изобретать велосипед, есть программка TrayIt!Которая сворачивает любые окна.


По сути не надо изобретать велосипед, есть программка TrayIt!Которая сворачивает любые окна. 
Замечательное программное решение, как и требовалось