VPF::Как скрыть/отобразить окно консоли?

Gwire

Дата 3.10.2007, 00:34 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 7.8.2007
Где: Николаев

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

Я пишу сервер для консоли. И хочется сделать его свернутым в SystemTray. Как сделать иконку в Tray я знаю, а вот как скрыть консоль, так чтобы буфер консоли не "стирался" - не могу. То есть FreeConsole и повторно AllocConsole не подходит (создаестя консоль AllocConsole-м). Возможно есть какие-то функции сохранения буфера консоли, тогда подойдет и FreeConsole с AllocConsole-м.
smile

Если можно, приводите пример использования указаных функций.

Rrader

Дата 3.10.2007, 16:05 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Идея такова:

Код


Program Project1

{$APPTYPE CONSOLE}

Uses Messages, Windows;

Var
  C: THandle;

Procedure Hide;
Begin
  C := FindWindow('ConsoleWindowClass', NIL);
  ShowWindow(C, SW_HIDE);
  // ShowWindow(C, SW_SHOW);
End;

Begin
  ReadLn;
  Hide;
  Readln;
End.

Код работает, если консоль запущена одна.
Хотя лучше искать окно через EnumWindows

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

Let's do this quickly!
Rest in peace, Vit!

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