Executar Programa Externo com Parametros

Delphi

16/05/2017

Boa tarde,



Eu tenho um aplicativo A que irá chamar outro aplicativo meu B, todos em delphi....

Quando o aplicativo A chamar o B eu preciso passar um parametro (String) para o parametro B e quando o parametro B abrir ele já pegar esse Parametro.

tem como ? por parametro ?
Robson Morais

Robson Morais

Curtidas 0

Respostas

Robson Morais

Robson Morais

16/05/2017

resolvido....
programa A
procedure TForm1.Button1Click(Sender: TObject);
var nrProcesso :String;
  i : integer;
begin


  for i := 0 to 2 do
    begin
      nrProcesso := '5';
      WinExec(pchar('E:\\Robinho\\Teste\\B.exe '+
      nrProcesso),SW_NORMAL);
    end;

end;


programa b

procedure TForm1.FormCreate(Sender: TObject);
begin
   Memo1.Lines.APPEND(ParamStr(0)); // recebe o 1º parametro ( comando )
   Memo1.Lines.APPEND(ParamStr(1)); // recebe o 2º parametro
   Memo1.Lines.APPEND(ParamStr(2)); // recebe o 3º parametro
end;
GOSTEI 0
Wesley Yamazack

Wesley Yamazack

16/05/2017

Opa Robinho, legal a solução! :)

Vlw por compartilhar com a galera.

[]'
GOSTEI 0
POSTAR