Запуск экзешников по очереди

[Airou]

Вобщем есть название и путь к екзешникам... программа должна по очереди запускать несколько экзешников... которые запускаються, а затем сделав автономно свое дело закрываются. Как мне узнать закрылось ли окно определенного экзешника, чтобы организовать их запуск по очереди.

[Ozerich]

модуль

unit ExecAndWait;
interface
 uses
   Windows, ShellApi;

   procedure ExecuteWait(Programme: string);

implementation   

Procedure ExecuteWait(Programme: string);
var
 ShExecInfo: TShellExecuteInfo;
begin
 FillChar(ShExecInfo, SizeOf(ShExecInfo), 0);
 with ShExecInfo do
  begin
   cbSize:=SizeOf(ShExecInfo);
   fMask :=SEE_MASK_NOCLOSEPROCESS;
   lpFile:=PChar(Programme);
   lpVerb:='open';
   nShow :=SW_SHOW;
  end;
 if ShellExecuteEx(@ShExecInfo)
 then WaitForSingleObject(ShExecInfo.hProcess, INFINITE);
end;
end.

главный модуль

ExecuteWait('notepad.exe');
ExecuteWait('notepad.exe');
ExecuteWait('notepad.exe');
ExecuteWait('notepad.exe');
ExecuteWait('notepad.exe');
ExecuteWait('notepad.exe');
ExecuteWait('notepad.exe');

[Airou]

Понятно, а как в ShExecInfo записать параметр с которым будет запускаться приложение?