condicionar fluxo do programa, pelo termino de um outro processo.
Bom dia galera, estou com um problema para criar um processo atraves de minha aplicação.
O caso e o seguinte estou desenvolvendo um instalador, e neste preciso chamar um outro instalador(BDE),
e apos o instalador do BDE executar a instalação , o meu instalador configura o BDE.Me sugeriram que craisse um processo que chama o instalador do BDE, e espera ele finalizar para dar continuidade no fluxo do meu programa
mas nao ta dando certo,pois o instalador do BDE so inicia se eu fechar o meu programa.
Segue abaixo funcao que cria este processo,desde ja agradeco a ajuda.
procedure tfORM1.instalaBDE();
var
lStartUpInfo:TStartUpInfo;
lProcesso: TProcessInformation;
controle:Boolean;
begin // Inicializa a estrutura TStartUpInfo
// indicando formato de abertura da janela
// e setando os atributos obrigatórios
// de serem inicializados.
With lStartUpInfo do
begin
cb:=2048;
lpReserved:=NIL;
lpDesktop:=NIL;
lpTitle:=NIL;
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:=SW_SHOWNORMAL;//SW_Hide; //para não aparecer na tela!
cbReserved2:=0;
lpReserved2:=NIL; end; controle:= CreateProcess(NIL,PChar('instaladorBDE\SETUP.EXE'),
NIL, NIL, False, 0, NIL,NIL ,
lStartUpInfo, lProcesso) ;
if controle then
WaitForSingleObject(lProcesso.hProcess,INFINITE); end;
var
lStartUpInfo:TStartUpInfo;
lProcesso: TProcessInformation;
controle:Boolean;
begin // Inicializa a estrutura TStartUpInfo
// indicando formato de abertura da janela
// e setando os atributos obrigatórios
// de serem inicializados.
With lStartUpInfo do
begin
cb:=2048;
lpReserved:=NIL;
lpDesktop:=NIL;
lpTitle:=NIL;
dwFlags:=STARTF_USESHOWWINDOW;
wShowWindow:=SW_SHOWNORMAL;//SW_Hide; //para não aparecer na tela!
cbReserved2:=0;
lpReserved2:=NIL; end; controle:= CreateProcess(NIL,PChar('instaladorBDE\SETUP.EXE'),
NIL, NIL, False, 0, NIL,NIL ,
lStartUpInfo, lProcesso) ;
if controle then
WaitForSingleObject(lProcesso.hProcess,INFINITE); end;
Roberto Junior
Curtidas 0