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

[FreeBrain]

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

[Stilet]

А Делфи тут при чем?

[FreeBrain]

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

А Делфи тут при чем?

Как при чем? Программа реализована на Делфи, реализацию сворачивания в трей на нем же написать надо.
Плохо я вопрос задала. Просто еще одно приложение должно параллельно запускаться, написанное на делфи и оно консольное.

[Hacker19_90]

Мне нужно свернуть ее в трей.

Программа в трей не сворачивается, она прячется а в трей добавляется иконка. Если я не прав прошу поправить, но вам нужно
Копать в сторону FindWindows ShowWindow и ShellNotifyIcon

[FreeBrain]

Ой, правильно- не сворачивается. Вы правы, что прячется. Я смотрела примеры с этими методами, но там везде оконные приложения, а не консольные. Я понимаю, что по идее разницы быть не должно, но все же так не получилось.

[Hacker19_90]

Что именно? Можно узнать? Да и ещё вы как программу в консоли запускаете?

[FreeBrain]

Так, если рассказывать по-человечески: есть большое приложение, написанное на делфи. Оно требует, чтобы параллельно с ним запускалось второе консольное приложение. И я хочу убрать висящую консоль и добавить ярлык в трей.
Консольное приложение у меня маленькое. Вот оно.

program PrServer;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  UServer in 'UServer.pas' {DMServer: TDataModule};
var s:string;
begin
DMServer:=TDMServer.Create(nil);
repeat
Writeln('''*''-exit');
Readln(s);
until S='*';
DMServer.Free;
end.

Я могу что-то неправильно говорить. Просто приложение не мое. Но мне сказали с ним работать и что-то доделывать.

[Hacker19_90]

Не, как именно вызывается эта программа из главной?

[FreeBrain]

Никак. Они просто параллельно работают. В идеале- консоль это сервер. А я просто работаю на локальном компьютере...

[Hacker19_90]

А заголовок у этого консольного окна постоянен?