Discussion :

[Lung]

Comment lancer un exe avec CreateProcess qui soit sans ID processus père (enfin pas celui de l'exe appelant) ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
   ZeroMemory(@StartupInfo, Sizeof(StartupInfo));
   StartupInfo.cb := Sizeof(StartupInfo);
   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
   StartupInfo.wShowWindow := SW_SHOWNORMAL;
   if CreateProcess(PChar('C:\Documents and Settings\moi\Bureau\App test\Project2.exe'), nil, nil, nil, False, 0, nil, nil, StartupInfo, ProcessInfo) then
   begin
 
      ...
 
         Application.Terminate;
      end;
   end;

Après avoir lancé cet exe (et fait 2 ~ 3 choses), mon application appelante se ferme.
Mon problème, c'est qu'il reste une fenêtre fantôme de mon application appelante jusqu'à ce que le deuxième exe soit fermé. J'en ai déduit que c'était le lien avec le processus père qui faisait ça.



Comment rendre l'exe lancé réellement autonome ?

[Rayek]

Pourquoi n'utilises tu pas ShellExecute ?

[Lung]

Pourquoi n'utilises tu pas ShellExecute ?

C'est ce que j'ai fini par faire, mais ça m'a obligé à rajouter deux recherches du PID.
Je ne pensais pas que CreateProcess avait cette contrainte ...

[Andnotor]

Est-ce que CreateProcess était lancé depuis un thread secondaire ? Ça pourrait expliquer le lock de l'affichage sur Application.Terminate.

Pourquoi as-tu besoin du PID ?

[Lung]

Est-ce que CreateProcess était lancé depuis un thread secondaire ? Ça pourrait expliquer le lock de l'affichage sur Application.Terminate.

Non, c'est un simple exe avec juste une fenêtre principale.

Pourquoi as-tu besoin du PID ?

Pour chercher le bouton et cliquer dessus. C'est bien sale, mais c'est un exe de correction de données en masse (à usage unique). Donc, j'ai pas fignolé. Je me disais que c'était le plus rapide, mais maintenant je me dis que j'aurais pu faire bien plus simple.

En tout cas, avec le ShellExecute et les recherche du PID, ça marche bien.