vez con ShellExecuteEx

[Anel Hernandez]

Hola,

Estoy mandando a ejecutar un programa con varios parametros de forma consecutiva de esta forma:

Código Delphi [-]
var
  Info:TShellExecuteInfo;
begin
  with Info do begin
   cbSize := SizeOf(ShellExecuteInfo);
   fMask := SEE_MASK_NOCLOSEPROCESS;
   Wnd := Handle;
   lpVerb := 'open';
   lpFile := PChar('C:\Archivos de programa\programa\programa.exe');
   lpParameters := PChar(Listbox1.items.Strings[i-1]);
   lpDirectory := PChar('D:\');
   nShow := SW_SHOW;
  end;
  Mandar a ejecutar varios programas a la(@INFO);

Pero necesito mandar N a la vez y luego cuando termine 1 mandar a ejecutar el siguiente de la lista de modo que siempre tenga en ejecucion N hasta que se termine la lista y vayan quedando N, N-1, N-2,..., 3,2,1. y finaliza.

como pudiera organizar esto?

gracias