Discussion :

[jcs2]

Je voudrais enchaîner deux programmes séquentiellement.
Si je fais ceci, ils s'exécutent simultanément.

Qu'est-ce que je peux mettre entre les deux appels pour que le 2ème attende la fin du 1er.?

Code :

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

1
2
3
4
5
    // lancement programme 1
    ShellExecute(Handle,'Open',PChar(ProgrammeListe.Strings[0]),nil,nil,SW_SHOWDEFAULT);
    // .....attendre la fin du programme 1  ???
    // lancement programme 2
    ShellExecute(Handle,'Open',PChar(ProgrammeListe.Strings[1]),nil,nil,SW_SHOWDEFAULT);

Merci d'avance pour vos réponses

[Bruno@Home]

voici ce que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function LanceAppliAttente(Const NomFichier, Param:string):boolean;
var
 StartInfo : TStartupInfo; 
 ProcessInformation : TProcessInformation; 
begin 
 result:=true; 
 ZeroMemory(@StartInfo, sizeof(StartInfo));
 StartInfo.cb:=sizeof(StartInfo); 
 if CreateProcess(nil, PChar(NomFichier + ' ' + Param), nil, nil, true, 0, nil, nil, StartInfo, ProcessInformation) then
   WaitForSingleObject(ProcessInformation.hProcess, INFINITE) // attend que l'application désignée par le handle ProcessInformation.hProcess soit terminée 
 else 
  result:=false; 
end;

Bruno

[cadetill]

Tu peux lire cette FAQ http://delphi.developpez.com/faq/?pa...oleapplication

[jcs2]

merci pour ces deux réponses hyper-rapides.

Je vais tester tout cela.

[jcs2]

La solution proposée par Bruno et par Cadetill (qui est pratiquement la même) fonctionne parfaitement.
Encore merci.

Ces programmes que je lance séquentiellement peuvent parfois dans certains cas être inclus dans une boucle sans fin.

Le problème qui se pose alors est d'interrompre cette boucle par un évènement externe. Ces programmes interceptent les évènements clavier et souris.

La seule solution que j'ai trouvée est de tester la position de la touche CAPS LOCK entre deux lancements à l'intérieur de la boucle.
Cela marche mais peut-être existe t-il une autre meilleure solution?

[denokan]

à chaque démarrage de chaque boucle tu pourrais peut-être imaginer de lancer une boîte de dialogue demandant à l'utilisateur s'il veut interrompre le déroulement, et cliquer automatiquement sur non au bout de quelques secondes par exemple

[jcs2]

Merci pour ta réponse Denokan, mais cette solution ne me convient pas.

Cette application consiste à projeter devant un public des vidéos ou (et)diaporamas enchainés les uns aux autres et il n'est pas question de provoquer une interruption entre chaque lancement.

La solution CAPS LOCK fonctionne très bien, je me demandais simplement s'il n'existait pas d'autres solutions plus astucieuses.

[denokan]

alors peut-être cette page ?