Endere�o Local do Executav�l

Question

Ai Galera tenho Varios aplicativo que chama um unico Aplicativo.E tenho que passar como para este aplicativo o Nome do Aplicativo que est� Chamando e o Endere�o de onde esta  o Aplicativo Exemplo: Se ...

Khundalini · Answer

Define melhor esse endere�o que vc tanto fala.[]sRubem RochaManaus, AM...

Quadrado · Answer

Basta voce acrescentar no arquivo de projeto (.dpr) a leitura do parametro 1 de chamada, pois o zero � o nome do aplicativo atual:

cNomePrograma := ParamStr(1)
cOutrosPar�metros := ParamStr(2)

e voce faz a chamada do programa assim:

   nErro := WinExec(PChar(�DirSeuPrograma\SeuPrograma.exe �+�NomeProgramaChamador �+
         �OutrosPar�metros�), SW_SHOW);
   if nErro <= 31 then { Se ocorreu erro... }
      ShowMessage(�Erro ao executar o programa.�);

Eu uso e funciona bem. Inclusive passo v�rios par�mtros como usu�rio e senha para logon autom�tico. Fazendo a checagem no arquivo dpr, a chamada indevida n�o mostra nem a tela:

   if ParamStr(1) = �SeuParametro� // senha para chamar o programa
   begin
      Application.Initialize;
      Application.CreateForm(TfmSeuForm, fmSeuForm);
      Application.Run;
   end
   else
   begin
      Application.MessageBox(PChar(�Este programa deve ser chamado �#1310+
            �pelo M�dulo Principal !�), �Aten��o!�,MB_OK+MB_ICONASTERISK);
      Halt;
   end;

Boa sorte
Quadrado

Silvio · Answer

Bom pessoal e mais o menos isso para ficar mais claro eu estou utilizando a Atualmente Assim:

//DtLocal Onde esta instalado o Aplicativo Local
DtLocal := FileDateToDateTime(FileAge(�C:\Sistemas\Vendas.exe�));

//Chamo o Aplicativo Controle

WinExec(�\\SERVERNET\C\SM\Sistemas\Controle\CONTROLE.exe�, SW_SHOWNORMAL);
ShowMessage(�Erro ao executar o programa.�);
Application.Terminate;

e no Meu aplicativo Controle estou fazenda da seguinte Forma:

While not (CopyFile(Pchar(\\SERVERNET\C\SM\Sistemas\Controle\CONTROLE.exe),Pchar(C:\Sistemas\Vendas.exe), False)) do
Inc(C);
//| Ap�s copiar a versao local � executada.
WinExec(PChar(C:\Sistemas\Vendas.exe), SW_SHOWNORMAL);
Except
//| � exibida uma mensagem de erro caso algo saia errado.
Mensagem := �Erro no Sistema! � + #13 + 13;
Application.MessageBox(PChar(Mensagem), �Erro�, MB_OK+MB_ICONERROR);
Abort;
End;

ent�o eu n�o posso fixar estes endere��es ent�o eu tenho que fazer com que o sistema Vendas envie para o Programa Chamado o Nome e Local que esta instalado pois tenho o mesmo Programa instalado em Computadores Diferentes que ir�o chamar o Programa