Attente de fin d'execution d'un setup lancé par "shell"

Question

Bonjour à tous.

Je suis à la recherche d'un script qui permette d'attendre la fin de l'execution d'un setup lancée par la commande shell.

J'ai testé les scripts d'attente d'execution trouvés sur le forum(waitshell, Attente de fin d'une commande Shell), ou sur la base de connaissance microsoft, ceux ci fonctionnent bien pour l'appel d'une appli classique windows avec affichage d'une fenetre, mais pas dans le cas de mes setup.
Mes setup se lancent presque simultanement et non l'un après l'autre.

Mes setup sont des installations muettes (qui ne posent aucune question), avec affichage tout de meme de la barre de progression, mais sans affichage de message de fin d'installation.

Je précise que je ne peux en aucun cas modifier les setup dont je ne suis pas le propriétaire.

Merci d'avance pour votre aide.

FjrM

cs_EBArtSoft · Answer

Essai tjrs celui ci :

Sub ShellWait(ByVal StrFileName As String)
    Dim rPrc  as long 
    Dim rPid  As Long
    rPid = Shell(StrFileName, vbMaximizedFocus) 
    rPrc = OpenProcess(&H1F0FFF, 0, rPid)
    Do
        If (WaitForSingleObject(rPrc, 1000) <> &H102&) Then Exit Do
        DoEvents
    Loop
    CloseHandle rPrc
End Sub

tu trouvera la declaration des api dans la 
visioneuse d'api fourni avec vb

@+

E.B.

fjrmarco · Answer

Tout d'abord merci pour ta réponse.

je viens d'essayer, mais les setups ne se lancent pas. ils restent bloqués sur 99%.

Et quand je kill la tache, alors seulement l'autre se lance.

Tu as une idée ?

FjrM

Attente de fin d'execution d'un setup lancé par "shell"

2 réponses

Discussions similaires