Enchainer sur un autre exécutable

Je voudrais que l'application sur laquelle je suis se ferme et soit remplacée par un autre exécutable.

J'ai écrit le code suivant :

Code:

---

1 2 3 4 5

If ShellExecute(0,'OPEN', PChar(AExe), Nil, Nil, SW_SHOW) > 0 Then Begin Result := True; Application.Terminate; End Else

---

Ca fonctionne correctement dans 99% des cas mais je viens d'avoir un cas où la seconde application a bien été lancée mais ou la première ne s'est pas refermée.
Quelle autre solution peut-il exister que ShellExecute ?

WinExec.

Citation:

---

Winexec est obsolète. il vaudrait mieux utiliser shellExecute

---

En recherche j'avais trouvé ceci.

Salut,

utilise des threads, au moins tu seras sur que ton processus est terminé.

Et comme c'est mon jour de bonté, je vais même te donner un exemple: :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm18.FormHide(Sender: TObject); var SI: STARTUPINFO; PI: PROCESS_INFORMATION; begin ZeroMemory(@si,sizeof(STARTUPINFO)); //remplir si avec de zeros Si.dwFlags := STARTF_USESHOWWINDOW; Si.wShowWindow := SW_SHOWNORMAL; CreateProcess(nil,'Le chemin de ton executable', nil,nil,True,0,nil,nil,Si,Pi);   WaitForSingleObject(pi.hProcess,INFINITE); MESSAGEBOX(handle,'C''est fini!!','fin',mb_OK); end;

---

En espérant que ça t'aide.

@+.

Merci PadawanDuDelphi.
Si j'ai bien compris le code l'application appelle un exécutable et attend qu'il soit terminé pour continuer.

Ce que je cherche à faire est différent :
J'ai une application qui détecte q'une nouvelle version est disponible.
Elle lance le Setup d'installation de la nouvelle version
Elle se referme aussitôt.

Ce matin sur un poste elle ne s'est pas refermée et le Setup d'installation a bloqué sur elle.
D'ou ma question sur le forum
il y avait en Basic une instruction qui s'appelait Chain et qui remplaçait un exécutable par un autre. C'est un peu ce que je cherche à faire.

Je conserve l'exemple de code car j'en aurai besoin pour autre chose mais comme

Citation:

---

c'est mon jour de bonté

---

j'en profite.

a priori il faut juste retirer cette ligne il me semble

Code:

---

WaitForSingleObject(pi.hProcess,INFINITE);

---

Citation:

---

Envoyé par PadawanDuDelphi

Salut,

utilise des threads, au moins tu seras sur que ton processus est terminé.

Et comme c'est mon jour de bonté, je vais même te donner un exemple: :D

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm18.FormHide(Sender: TObject); var SI: STARTUPINFO; PI: PROCESS_INFORMATION; begin ZeroMemory(@si,sizeof(STARTUPINFO)); //remplir si avec de zeros Si.dwFlags := STARTF_USESHOWWINDOW; Si.wShowWindow := SW_SHOWNORMAL; CreateProcess(nil,'Le chemin de ton executable', nil,nil,True,0,nil,nil,Si,Pi);   WaitForSingleObject(pi.hProcess,INFINITE); MESSAGEBOX(handle,'C''est fini!!','fin',mb_OK); end;

---

En espérant que ça t'aide.

@+.

---

@padawan : Je crois que tu n'as pas compris sa question.
Le problème vient du fait que sa première application ne se ferme pas après avoir lancer la 2em, les threads n'y pourront rien si la première application ne se ferme pas.

@delphi-ne : Je pense pas que tu puisses faire grand chose à cela, si ta première application ne se ferme pas, c'est que tu as eu une erreur (violation d'accès ou autre) lors de la fermeture du programme et pour gérer cela en automatique ca va être difficile (des try finally et/ou Except ?).

Puis bon , tu n'auras jamais 100% de chance que l'application se ferme à chaque fois, il existera toujours un cas qu'y fera en sorte que ton application ne se ferme pas.

C'est pas bien 99% ? :P

Le forum étant par définition public je ne peux pas rapporter ici toutes les choses gentilles que mon utilisateur à dites quand il s'est touvé dans le 1%.

Pourtant je teste bien que le shellexecute ne retourne pas d'erreur donc je ne comprends pas.
L'essentiel que je recherchais ici est de ne pas avoir zappé une possibilité techniques

Essaye avec CreateProcess, qui lui renvoie bien un code d'erreur plus fiable j'ai l'impression.

Tu tomberas peut être de 1% a 0.1% :mrgreen:

pour ma part, j'utilise également CreateProcess pour lancer les programmes externes.

C'est vrai que c'est mieux d'utiliser CreateProcess mais ici, ce n'est pas
là ton problème car ton setup ce lance bien.

Est-ce que le programme de setup ne pourrait pas vérifier
que l'ancien prog est fermé avant de faire son travail...
au pire attendre 5-10 secondes pour qu'il se ferme et sinon...
il le kill?...

je crois qu'avec ce genre de setup, ton 99.9% deviendrait 99.99999%