Discussion :

[wikimeta]

Bonjour à tous
est-il possible de détecter la fermeture d'une application, je m'explique :
j'ai une applicationDEPART qui lance d'autres applications (1 au choix).
Losque que je lance l'application choisi, mon applicationDEPART se cache (Application.Hide).
je voudrais que lorsque je ferme l'application qui à été lancée via applicationDEPART, l'applicationDEPART réapparaisse (Application.show) mais je ne sais pas comment détecter la fermeture de l'application

sans être dedans c'est pas très claire donc si quelqu'un pense pouvoir m'aider, je suis près a fournir toute explication

merci d'avance

[rbh]

Salut
Pour attendre la fermeture d'une application, direction cette section de la FAQ.

[wikimeta]

la réponse pourrait fonctionner mais je passe par un ShellExecute pour lancer une des applications et pas part un CreateProcess

[rbh]

Et alors?
Moi je me suis fait une fonction qui utilise le code que je t'ai donné et dont je me sers exactement comme ShellExecute.
Il n'y a aucun problème pour passer de l'un à l'autre. (tester chez + de 1000 clients sur des windows de 98 à XP).

[Laurent Dardenne]

Moi je me suis fait une fonction qui utilise le code que je t'ai donné et dont je me sers exactement comme ShellExecute.

Et bien dans ce cas et si ce n'est pas top secret tu peux nous proposer ton code pour enrichir la FAQ.

[rbh]

Voila la fonction telle qu'elle est dans mon code:
C 'est celle de la FAQ sauf que le chemin de l'appli et le param de ligne de commande sont passés en paramêtre de la fonction.
Elle peut encore évoluer en passant plus de paramêtre .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
procedure ShellAndWait(AppFullPath: PChar; Param: PChar);
var
  StartInfo: TStartupInfo;
  ProcessInfo: TProcessInformation;
  Fin: Boolean;
begin
// SOURCE WWW.DEVELOPPEZ.COM => F.A.Q. Delphi
// http://delphi.developpez.com/faq/?page=interexecution#lancercontroleapplication
 
  { Mise à zéro de la structure StartInfo }
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  { Seule la taille est renseignée, toutes les autres options }
  { laissées à zéro prendront les valeurs par défaut }
  StartInfo.cb := SizeOf(StartInfo);
 
  { Lancement de la ligne de commande }
  if CreateProcess(nil, AppFullPath, Param, nil, False, 0, nil, nil, StartInfo, ProcessInfo) then
  begin
    { L'application est bien lancée, on va en attendre la fin }
    { ProcessInfo.hProcess contient le handle du process principal de l'application }
    Fin := False;
    repeat
      { On attend la fin de l'application }
      case WaitForSingleObject(ProcessInfo.hProcess, 200) of
        WAIT_OBJECT_0: Fin := True; { L'application est terminée, on sort }
        WAIT_TIMEOUT: ; { elle n'est pas terminée, on continue d'attendre }
      end;
      { Mise à jour de la fenêtre pour que l'application ne paraisse pas bloquée. }
      Application.ProcessMessages;
    until Fin;
    { C'est fini }
 
  end
  else RaiseLastOSError;
end;

[wikimeta]

y'a une erreur que je ne comprend pas (je suis quand meme que débutant)

[Erreur] Unit1.pas(43): Types incompatibles : 'Char' et '_SECURITY_ATTRIBUTES'

apparement cette erreur ce fait lors du CreateProcess
if CreateProcess(nil, AppFullPath, Param, nil, False, 0, nil, nil, StartInfo, ProcessInfo) then
???????!!!!!!!!!

merci

[rbh]

Autant pour moi j'avais fait une rapide adaptation sans vérifier. Remplace

Code :

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

CreateProcess(nil, AppFullPath, Param, nil, False, 0, nil, nil, StartInfo, ProcessInfo)

par

Code :

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

CreateProcess(nil, AppFullPath+' '+ Param, nil, nil, False, 0, nil, nil, StartInfo, ProcessInfo)

et ça devrait marcher.
En fait c'est le passage des paramêtre de la ligne de commande que j'ai ajouté pour faire comme pour ShellExecute.
Si tu n'en as pas besoin, élimine le complêtement.

[wikimeta]

ca marche impécable, j'ai juste effacer le param parce qu'il y avait encore une erreur :
[Erreur] Unit1.pas(46): Types incompatibles : 'String' et 'PChar'

et que effectivement j'en ai pas besoin, d'ailleur je n'ai pas vraiment compris en quoi il fait parti d'un parametres puisque le parametre en question veut apparement un chemin

enfin en tout cas sans le param ca marche.

merci tout le monde