Delphi Write na tela do DOS (prompt de comando)
23/04/2020
0
por exemplo:
.
C:\>Aplicacao.EXE Parametro1
.
Gostaria de poder retornar um resultado no proprio prompt de comando:
por exemplo:
.
C:\>Aplicacao.EXE Parametro1
Parametro recebido com sucesso...
C:\>
Acredito que exista como fazer isso, mas não encontrei nada, alguém saberia me dizer?
Alberto
Posts
23/04/2020
Emerson Nascimento
https://www.devmedia.com.br/voce-sabia/994
24/04/2020
Alberto
Testei com a diretiva {$APPTYPE CONSOLE} e funciona a função Writeln diretamente no console (prompt de comando).
Porém ao incluir a diretiva (como é uma diretiva de compilação), a janela (prompt de comando) abre automaticamente ao executar a aplicação.
.
A minha aplicação é visual e já esta pronta, porém eu gostaria de implementar nela uma procedure que só será
executada, quando a aplicação detectar que foi passado um parametro.
(nesse caso eu já estaria executando a aplicação de uma janela DOS (prompt de comando) e é ai que gostaria de usar o writeln)
.
-Executar aplicacao no windows (sem parametros)
Clico no icone, executa, abre a aplicacao no modo GUI
.
-Executar a aplicação no PROMPT de COMANDO (com parametros)
C:\\>Aplicação.EXE Parametro1 (executa a procedure especifica)
C:\\>Parametro recebido com sucesso (retorno da aplicação: enviado pela Writeln)
-Sai da aplicação.
Resumindo, eu precisaria controlar em Runtime o uso do CONSOLE
03/05/2020
Psychlo
var
x: String;
begin
AllocConsole;
Writeln('test..');
Readln(x);
ShowMessage(x);
FreeConsole;
end;
04/05/2020
Alberto
O AllocConsole até funciona, porém não da maneira que eu preciso.
.
Pois quando executo a aplicação com parametro
eu já estou em uma tela do PROMPT de COMANDO
.
O AllocConsole abre uma segunda tela, o que não é interessante
.
O que eu precisaria é algo como capturar o Handle
da Janela do PROMPT de Comando que executou a aplicação.
e então enviar o WriteLn nessa janela.
Clique aqui para fazer login e interagir na Comunidade :)