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?