Fórum Aguardando a Execução #296783
23/09/2005
0
Estou executando um processo de copiar as dll´s e preciso que execute um programa de instalação (*.exe)
Como faço para executar o que venho executando e aguardar o término deste programa e só depois disso continuar a executar os procedimento
Ex.:
Showmessage(´1´);
Showmessage(´2´);
Showmessage(´3´);
Executar o programa de instalação
Showmessage(´4´);
Showmessage(´5´);
Showmessage(´6´);
Só aparecer as mensagens 4 ,5 6 depois de instalado o programa...
Obrigado
Abraços..
Tremonti
Curtir tópico
+ 0Posts
23/09/2005
Massuda
Gostei + 0
23/09/2005
Tremonti
Abraços
Gostei + 0
23/09/2005
Massuda
Showmessage(´1´); Showmessage(´2´); Showmessage(´3´); // Executar o programa de instalação ExecuteAndWaitEx(´caminho\para\o\setup.exe´); Showmessage(´4´); Showmessage(´5´); Showmessage(´6´);
Gostei + 0
23/09/2005
Tremonti
Gostei + 0
23/09/2005
Massuda
var SHE:SHELLEXECUTEINFO; ... Showmessage(´1´); Showmessage(´2´); Showmessage(´3´); FillChar(SHE, SizeOf(SHE), 0); SHE.cbSize := SizeOf(SHE); SHE.fMask := See_Mask_NoCloseProcess; SHE.Wnd := Handle; SHE.lpVerb := ´Open´; SHE.lpFile := ´cmd´; SHE.lpParameters := PChar(´caminho\para\o\setup.exe´); SHE.nShow := SW_Hide; ShellExecuteEx(@SHE); WaitForSingleObject(SHE.hProcess, Infinite); Showmessage(´4´); Showmessage(´5´); Showmessage(´6´); ...
Gostei + 0
23/09/2005
Tremonti
mas deverá funcionar...
valew Mesmo, qq coisa te contato...rs
Abraços...
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)