Discussion :

[bvsud]

Bonsoir à tous

Ce code n'attend pas la fin du processus :

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

Procedure Pilote_Editer_Listes;
begin

      Form1.JvTrayIcon1.Active := True;
      Form1.JvTrayIcon1.Animated := True;
      Form1.JvTrayIcon1.BalloonHint('LISTER DOSSIERS DE PHOTOS','EDITION DES LISTES', btInfo, 5000, False);
      Form1.JvTrayIcon1.AcceptBalloons.ToString(True);

      Form1.JvCreateProcess1.Create(Form1);
      Form1.JvCreateProcess1.StartupInfo.ShowWindow := swNormal;
      Form1.JvCreateProcess1.CommandLine := 'EXPLORER.EXE ' + Nom_Rep_Sortie; // Explorer affiche le répertoire désigné par la variable Nom_Rep_Sortie
      Form1.JvCreateProcess1.WaitForTerminate := True;

      Form1.JvCreateProcess1.Run;

      Form1.JvTrayIcon1.HideApplication;
      WHile Form1.JvCreateProcess1.State = psWaiting do
          begin
                Application.ProcessMessages;
          end;
      Form1.JvTrayIcon1.ShowApplication;		// N'attend pas la fin du processus appelé. Parce que c'est Explorer ? 

      Form1.JvCreateProcess1.Free;
      Form1.JvTrayIcon1.Active := False;

end;

A l'exécution, j'ai le message (un peu habituel chez moi) avec un CreateProcess() :



Ce code, en revanche, fonctionne sans problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
      Form1.JvCreateProcess1.CommandLine := 'D:\PROGRAMME.EXE';
      Form1.JvCreateProcess1.WaitForTerminate := True;
      Form1.JvCreateProcess1.Run;

      WHile Form1.JvCreateProcess1.State = PsWaiting DO
          begin
                Application.ProcessMessages;						// Attend bien la fin du processus, MAIS je ne cache pas la fenêtre de l'application
              
          end;

      SetForegroundWindow(Handle_App);

Ca bogue parce qu'il s'agit d'Explorer, qui ne se ferme jamais (en principe), ou bien parce que je réduis la fenêtre de l'application appelant Explorer ? Celle-ci n'obtempère pas à la minimisation, ni à Form1.Hide . J'ai ce fichu message d'erreur.

Je pige mal, là ...

[Andnotor]

Tu ne peux avoir qu'une seule instance d'explorer.exe. C'est le shell et l'affiche des dossiers n'est qu'une de ses fonctionnalités. Normal qu'un deuxième appel quitte immédiatement.
Le message est un autre problème. Cela correspond à un SetFocus sur une fenêtre masquée.

[bvsud]

Voilà.

C'est donc l'appel à Explorer (résident, en somme) qui fait que le psWainting n'est pas possible. Le reste (masquer la fenêtre appelant Explorer) ne l'est pas non plus en attendant la fin du processus d'Explorer.

Je pense que c'est résolu.

Merci

[foetus]

Je ne sais pas si tu travailles avec la VCL, mais je trouve d'une bêtise sans nom (et ce n'est pas le seul) de lancer une exception pour tout et rien

Pour pallier cela, il faut utiliser la méthode CanFocus : if ( control->CanFocus() ) { control->SetFocus(); }