VPF::Свернуть консоль в трей - Форум программистов

FreeBrain

Дата 27.8.2010, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 27.8.2010

Репутация: нет
Всего: нет

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

1000000dollars

Дата 27.8.2010, 17:41 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 6.10.2007

Репутация: нет
Всего: 8

Нет такого понятия как "свернуть в трей". Можно только показать/изменить/удалить иконку в трее и хинт к ней. Эта часть зависит только от того используется 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) ;

Это сообщение отредактировал(а) 1000000dollars - 27.8.2010, 17:47

TDelphi

Дата 29.8.2010, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 29.8.2010

Репутация: нет
Всего: нет

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

Keeper89

Дата 29.8.2010, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Цитата(TDelphi @ 29.8.2010, 12:44

)

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

Замечательное программное решение, как и требовалось smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »