Discussion :

[Delphi-ne]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[defluc]

WinExec.

[Delphi-ne]

Winexec est obsolète. il vaudrait mieux utiliser shellExecute

En recherche j'avais trouvé ceci.

[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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

@+.

[Delphi-ne]

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

c'est mon jour de bonté

j'en profite.

[TicTacToe]

a priori il faut juste retirer cette ligne il me semble

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WaitForSingleObject(pi.hProcess,INFINITE);

[Rayek]

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:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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% ?

[Delphi-ne]

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