Attendre la fin d'une application pour lancer une

cs_sagitarius 46 Messages postés samedi 26 août 2017Date d'inscription 4 avril 2018 Dernière intervention - 4 avril 2018 à 10:20 - Dernière réponse : papyvore 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention
- 5 avril 2018 à 09:32
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 

1 réponse

Répondre au sujet
papyvore 155 Messages postés samedi 15 novembre 2003Date d'inscription 5 avril 2018 Dernière intervention - Modifié par papyvore le 5/04/2018 à 09:48
0
Utile
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 ?

Commenter la réponse de papyvore

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.