Fechar apenas Console Delphi 7

Question

Tenho uma aplicação VCL que em determinado momento abre um Console.

Meu problema é que se o cliente fechar o Console, o mesmo fecha toda a aplicação.

Como faço para controlar o OnClose do Console, e impedir que toda a aplicação seja fechada???

Obrigado.

Joel Rodrigues · Answer

Qual é o console? O próprio do Windows?Tem como mostrar o código que está utilizando e o que é feito no console?...

Kleberson Lopes · Answer

Estou utilizando o AllocConsole, que abre a janela de Console, a partir do seu aplicativo....

Joel Rodrigues · Answer

Tem como mostrar o código que está utilizando e o que é feito no console?...

Kleberson Lopes · Answer

O código é chamado no evento onCreate de um Form.

AllocConsole;
Writeln('Mensagens de Log.');
FreeConsole;

O comando FreeConsole, encerra o Console, mas se clicar no 'X' do Console, toda a aplicação é fechada.
Preciso fazer com que o Console não finalize a aplicação toda.