ShellExecute, Tâche aprés Tâche

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 8O

Merci de répondre,

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.

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).

bonjour à toutes et à tous,

Citation:

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:

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

merci beaucoup,

Je vais voir ce que ça donne, :D