vez con ShellExecuteEx

[Anel Hernandez]

Parece ke cometi un error de copiado en el mensaje original. Rectifico:

Código Delphi [-]
var
 i:integer;
 Info:TShellExecuteInfo;
begin
 for i:=1 to stringgrid6.RowCount-1 do begin
   with Info do begin
    cbSize := SizeOf(ShellExecuteInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Handle;
    lpVerb := 'open';
    lpFile := PChar(DirT+'Calmetl.exe');
    lpParameters := PChar(checklistbox1.items.Strings[i-1]);
    lpDirectory := PChar(dirT);
    nShow := SW_SHOW;
   end;
   ShellExecuteEx(@INFO);
   Repeat
    Application.ProcessMessages;
   until WaitForSingleObject( Info.hProcess,500)<> WAIT_TIMEOUT;

end;

no hay manera, por esta via, de controlar/gestionar cuantos programas hay corriendo?