Attendre la fin d'une application pour lancer une [Résolu]

- - Dernière réponse :  Utilisateur anonyme - 30 mai 2018 à 21:50
Bonjour à tous,
Voilà, j'ai fait un exécutable qui lance des setups.
Mais le problème, c'est qu'il n'attend pas la fin du setup pour lancer un autre.
Voici le source.
function LanceAppliAttenteFin(NomFichier:string):boolean;
var
  StartInfo : TStartupInfo;
  ProcessInformation : TProcessInformation;
begin
  result:=true;
  ZeroMemory(@StartInfo, sizeof(StartInfo)); 
  StartInfo.cb:=sizeof(StartInfo);
  if CreateProcess(nil,PChar(NomFichier),nil,nil,true,0,nil,nil,StartInfo,ProcessInformation)
  then WaitForSingleObject(ProcessInformation.hProcess, INFINITE)
  else result:=false;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
LanceAppliAttenteFin(ExtractFilePath(Application.Exename)+'Chemin\Setup.exe');


Quelqu'un pourrait-il m'aider à modifier mon code pour lancer les setup les uns après les autres ???.
Ou auriez-vous une autre solution ????,
En vous remercient d'avance,
Salutation et bon codding à tous
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
175
Date d'inscription
samedi 15 novembre 2003
Statut
Membre
Dernière intervention
12 mai 2019
5
1
Merci
salut
regarde de ce coté http://www.swissdelphicenter.ch/en/showcode.php?id=93
ou celui ci http://www.delphibasics.info/home/delphibasicssnippets/createprocessandwaitforexit que j'ai déja utilisé.
ou bien dans thread et attendre la fin du thread ?

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 141 internautes nous ont dit merci ce mois-ci

Commenter la réponse de papyvore
0
Merci
Bonsoir,
merci Papyvore pour ta réponse,
désolé de te répondre aussi tardivement, mais je n'ai pas été informé d'avoir reçu des réponses à mes posts,
Je vais essayer tes réponses,
Merci encore,
Bon codding
Commenter la réponse de Utilisateur anonyme