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

[FreeBrain]

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

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

Да, постоянный.

[Hacker19_90]

попробуй выделенное мной добавить, должно скрыться

program PrServer;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 UServer in 'UServer.pas' {DMServer: TDataModule},
 Windows;
var 
    s:string;
    h: hWnd;
begin
    FindWindow(nil, 'Твой заголовок');
    ShowWindow(h, SW_HIDE);
DMServer:=TDMServer.Create(nil);
repeat
Writeln('''*''-exit');
Readln(s);
until S='*';
DMServer.Free;
end.

[FreeBrain]

Попробовала- пока без изменений.
А вот h: hWnd; где-то же нужно инициализировать?
И хочется, чтобы еще иконка появлялась, чтобы в последствии можно было консоль вернуть.

[Hacker19_90]

А , бли ссори !!! Забыл!

program PrServer;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 UServer in 'UServer.pas' {DMServer: TDataModule},
 Windows;
var 
    s:string;
    h: hWnd;
begin
    h := FindWindow(nil, 'Твой заголовок');//вот здесь инициализируется
    ShowWindow(h, SW_HIDE);
DMServer:=TDMServer.Create(nil);
repeat
Writeln('''*''-exit');
Readln(s);
until S='*';
DMServer.Free;
end.

[FreeBrain]

Ой, скрылось! Супер!
Только вот до меня дошел смысл вопроса про то изменяется ли заголовок. У меня заголовок- это путь... И да, у меня он не меняется, а так, конечно, будет. Мне же на разных машинах запускать. И еще нужно, чтобы консоль из трея можно было восстановить.
Извините, за то, что так туплю...

[Hacker19_90]

. У меня заголовок- это путь...

надеюсь имя ехе одинаковое:

program PrServer;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 UServer in 'UServer.pas' {DMServer: TDataModule},
 Windows;
var 
    s:string;
    MyPath: string;
    h: hWnd;
begin
    MyPath := GetCurrentDir;
    MyPath := MyPath + 'тут имя ехе с расширением';
    h := FindWindow(nil, MyPath);//вот здесь инициализируется
    ShowWindow(h, SW_HIDE);
DMServer:=TDMServer.Create(nil);
repeat
Writeln('''*''-exit');
Readln(s);
until S='*';
DMServer.Free;
end.

[FreeBrain]

Вот здесь
h := FindWindow(nil, MyPath); ругается на то, что MyPath типа string, а не PAnsiChar.

[Hacker19_90]

Тогда так

program PrServer;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 UServer in 'UServer.pas' {DMServer: TDataModule},
 Windows;
var 
    s:string;
    MyPath: PAnsiChar;
    h: hWnd;
begin
    MyPath := PAnsiChar(GetCurrentDir);
    MyPath := PAnsiChar(string(MyPath) + 'тут имя ехе с расширением');
    h := FindWindow(nil, MyPath);//вот здесь инициализируется
    ShowWindow(h, SW_HIDE);
DMServer:=TDMServer.Create(nil);
repeat
Writeln('''*''-exit');
Readln(s);
until S='*';
DMServer.Free;
end.

[FreeBrain]

Ошибки не выдает, но теперь не скрывает консоль.

[Hacker19_90]

Вот я слешь пропустил

 MyPath := PAnsiChar(string(MyPath) + '\тут имя ехе с расширением');