Duvida Delphi com DOS

[C.J.]

Como eu faço para meu programa poder ser acessado com Linha de DOS?

Exemplo

nomedoprograma [sintase] etc...

Abraços

[Churc]

Veja se é isto que precisa

http://scriptbrasil.com.br/forum/index.php...amp;hl=szParams

abraxx

[C.J.]

não, oque eu queria é que por exemplo

igual ao UPX ele n é visual, você usa ele pelo MS-DOS é isso que eu queria

usar assim

nomedoprog [sintase] etc.. é isso

[Churc]

Certo, então faz o seguinte, crie um novo aplicativo e feche a Unit 1 e não salve ela...

Depois vai no Menu "Project > View Source"

pra testar, no View Source você terá o código do Aplicativo, apague tudo e cole isto...

{$APPTYPE CONSOLE}
program bla;

uses
  Windows;

var
  i: Integer;
  szParams: String;

procedure GetParams;
var
  i: Integer;
begin
  for i := 1 to ParamCount do
  if (i = 1) then szParams := ParamStr(i) else
  szParams := szParams + ' ' + ParamStr(i);
end;

begin
  if ParamCount < 1 then
  begin
    writeln('Não foram passados parametros!');
    Writeln('Encerrando...');
    Halt(1);
  end;

  GetParams;

  Writeln('Parametro passado: ' + szParams);

end.

salve como Bla e compile e rode via DOS.... pra voce identificar os parametros passados utilize o Pos() no szParams exemplo, voce quer saber se foi passado ble em parametros então

uses
  SysUtils;
  ...
  GetParams;
  if Pos('ble', LowerCase(szParams)) > 0 then
  Writeln('O parametro ble foi passado!) else
  Writeln('não foi passado o parametro ble!');

e por ai vai

detalhe, para que o compilador identifique que voce está fazendo um programa DOS, não se esqueça de deixar lá na primeira linha o {$APPTYPE CONSOLE}

lembrando também que é claro, esqueça forms e tudo mais rs

abrax

Editado Junho 12, 2009 por Churc

[C.J.]

em que lugar que eu coloco os parametros que tem q digitar Exemplo -g e em q lugar eu coloco o comando caso for digitado -g?

abraõs

[Churc]

os parametros são passados na janela do DOS e não no seu programa...

exemplo, clique em Iniciar, executar e digite: cmd e de Enter

no DOS navegue até a pasta em que voce compilou o exemplo que te passei e chame exemplo

bla.exe aqui qualquer coisa

o programa vai te dizer

"aqui qualquer coisa"

se fosse -g ele iria te dizer que voce passou como parametro "-g"

teste o exemplo que te passei ;)

abrxxx

[C.J.]

sim eu testei mais eu queria saber em que local eu coloco oque quando a pessoa for digitar a sintase vai executar a função...

[Churc]

não entendi rs

da um exemplo ou explica melhor se possível!

...

abrx

[C.J.]

por exemplo:

a pessoa digita -g

e quando ela fizer isso vai por exemplo mandar uma mensagem...

eu quero saber em q local eu coloco a mensagem...

[C.J.]

alguém me ajuda por favor

[Churc]

amigo sinceramente não da pra entender!!

que mensagem? Mensagem na janelinha do DOS? que mensagem?

entende que assim é difícil compreeender o que voce quer fazer

teste isso

{$APPTYPE CONSOLE}
program bla;

uses
  Windows;

var
  i: Integer;
  szParams: String;

procedure GetParams;
var
  i: Integer;
begin
  for i := 1 to ParamCount do
  if (i = 1) then szParams := ParamStr(i) else
  szParams := szParams + ' ' + ParamStr(i);
end;

begin
  if ParamCount < 1 then
  begin
    writeln('Não foram passados parametros!');
    Writeln('Encerrando...');
    Halt(1);
  end;

  GetParams;
  
  if Pos('-g', LowerCase(szParams)) > 0 then
  Writeln('Tipo essa mensagem voce diz?!');

end.

Editado Junho 16, 2009 por Churc

[C.J.]

.. se eu utilizar essa forma os comandos do delphi não funcionan? EX:

a pessoa digita no DOS:

''' -g

e quando ela fizer isso ativa o comando do Delphi.

ShowMessage

entende?

[Churc]

.. se eu utilizar essa forma os comandos do delphi não funcionan? EX:

a pessoa digita no DOS:

''' -g

e quando ela fizer isso ativa o comando do Delphi.

ShowMessage

entende?

exato, não funcionam... esquece tudo que for janela, forms, messages... único contato que voce tem com o usuário é na tela do DOS em modo texto

abrxx

[C.J.]

apenas texto? n da pra executar nenhum comando?

[Churc]

depende o comando da pra executar sim tipo os comandos de API que não utilizam nada visual

agora amigo, pra que voce quer fazer um programa em modo DOS mas que mostra mensagens e tal porque tem que ser em modo DOS?

[C.J.]

hmm, Seria mesmo por Aprendizado... tá certo Churc Vlw cara