Discussion :

[bs.box]

Salut,

Tout ce qui me concerne c'est comment exécuter une liste de programmes,
l'un aprés l'autre, je veux dire : le suivant ne va pas s'exécuter jusqu'à la
fermeture du programme lancé avant!
C'est comme un fichier batch sous DOS

Merci de répondre,

[guillemouze]

recherche une fonction qui s'appelle ShellAndWait (je crois que je l'ai vue sur ce site). en gros c'est un createProcess avec un WAIT_FOR_SINGLE_OBJECT.

[sat83]

Il faut que ton application créée les processus puis attente la fin de leur exécution. Pour cela , une solution est d'utiliser CreateProcess (pour créer le processus) et WaitForSingleObject (Pour attendre la fin de son exécution).

[NABIL74]

bonjour à toutes et à tous,

Tout ce qui me concerne c'est comment exécuter une liste de programmes,
l'un aprés l'autre, je veux dire : le suivant ne va pas s'exécuter jusqu'à la
fermeture du programme lancé avant!
C'est comme un fichier batch sous DOS

voici un bout de code qui réponds à ton besoin.ici, mon programme attend la fermeture de "Notepad" et ensuite, il lance la calculatrice de windows.

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
36
37
38
39
40
41
42
 
.
implementation
 uses ShellApi;
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
   SEInfo: TShellExecuteInfo;
   ExitCode: DWORD;
   ExecuteFile, ParamString, StartInString: string;
begin
   ExecuteFile:='c:\Windows\Notepad.exe';
 
   FillChar(SEInfo, SizeOf(SEInfo), 0) ;
   SEInfo.cbSize := SizeOf(TShellExecuteInfo) ;
   with SEInfo do begin
     fMask := SEE_MASK_NOCLOSEPROCESS;
     Wnd := Application.Handle;
     lpFile := PChar(ExecuteFile) ;
{
ParamString peut contenir les
application des paramètres.}
// lpParameters := PChar(ParamString) ;
{StartInString précise le nom du répertoire de travail.
Si omis, le répertoire courant est utilisé.}
// lpDirectory := PChar(StartInString) ;
     nShow := SW_SHOWNORMAL;
   end;
   if ShellExecuteEx(@SEInfo) then begin
     repeat
       Application.ProcessMessages;
       GetExitCodeProcess(SEInfo.hProcess, ExitCode) ;
     until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
     // ExecuteFile:='C:\WINDOWS\system32\calc.exe';
      ShellExecute(0,'OPEN','calc.exe', Nil, Nil, SW_SHOW);
    // ShowMessage('Notepad terminated') ; // tu peux même afficher
    // un message lors de la fermeture de "Notepad"
   end
   else ShowMessage('Erreur de lancement de Notepad!') ;
end;

A+

NABIL74

[bs.box]

Je vais voir ce que ça donne,