Abrir aplicacion, reproducir archivo y esperar a q termine

[Neftali [Germán.Estévez]]

¿Si pones la llamada directamente sin usar el listview (sólo para probar), lo reproduce?

También tendrás que mirar, si ese programa en concreto, tiene implementada la posibilidad de aceptar parámetros.

[mRoman]

Gracias, por contestar.....

Fijate que talvez vaya a ser que el programa externo no acepta parametros....en realidad ignoro si lo hace. Probare lo que comentas de ejecutarlo directamente sin tomarlo del ListView....y en cuanto a que si acepta parametros el ejecutable, pues lo investigare. Yo creo que ese va a ser el problema.

Luego comento que paso.
Saludos

[[escafandra]]

Cuando una ruta tiene espacios se debe colocar entre comillas para que el S.O. entienda desde donde comienzan los parámetros:

Código Delphi [-]
ejecutarProceso('"C:\Program Files (x86)\KaraFun\KaraFun.exe" "C:\Program Files (x86)\KaraFun\pista1.cdg"');

Saludos.

[mRoman]

AHHH....ok....SIIII !!!....EFECTIVAMENTE FUNCIONO de esa forma....gracias escafandra !.

Gracias a Neftali y Escafandra por sus aportes....ya se pudo.

Saludos....

[mRoman]

Asi quedo el codigo final:

Código Delphi [-]
procedure TForm1.btnReproducirClick(Sender: TObject);
var
   St : array[0..255] of char;
   NumProceso:Cardinal;
begin
     With lvLista do
     begin
         i:=0;
         While i < Items.Count do
         begin
             if lvLista.Items[i].Checked then
             begin
                 Application.Minimize;
                 NumProceso:=ejecutarProceso('"C:\Program Files (x86)\KaraFun\KaraFun.exe" "'+Items.Item[i].SubItems.Strings[1]+'"');
                 if NumProceso<>0 then
                     WaitForSingleObject(numProceso,INFINITE);
                 Application.Restore;
             end;
             inc(i);
         end;
     end;

end;

Con la funcion modificada que propuso neftali

Código Delphi [-]
function ejecutarProceso (nombreProceso : string) : Cardinal;
var
  infoInicio : TStartupInfo;
  infoProceso : TProcessInformation;
begin
  Result := 0;

  FillChar (infoInicio, SizeOf(infoInicio), 0);
  infoInicio.cb := SizeOf(infoInicio);

  if CreateProcess(nil, PChar(nombreProceso), 
      nil, nil, false, 0, nil, nil,
      infoInicio, infoProceso) then
    Result := infoProceso.hProcess;
end;

[[escafandra]]

Un detalle más, cuando termine el proceso debemos cerrar los Handles:

Código Delphi [-]
CloseHandle(infoProceso.hProcess);
CloseHandle(infoProceso.hThread);

Empezado por msdn

msdn
If the function succeeds, be sure to call the CloseHandle function to close the hProcess and hThread handles when you are finished with them. Otherwise, when the child process exits, the system cannot clean up the process structures for the child process because the parent process still has open handles to the child process. However, the system will close these handles when the parent process terminates, so the structures related to the child process object would be cleaned up at this point.

Saludos.

[mRoman]

Empezado por escafandra

Un detalle más, cuando termine el proceso debemos cerrar los Handles:

Código Delphi [-]
CloseHandle(infoProceso.hProcess);
CloseHandle(infoProceso.hThread);

Ok, gracias....ahora donde pondría los "Close"?...Dentro de la función?

[[escafandra]]

Auna la ejecución (CreateProcess), la espera (WaitForSingleObject) y el cierre de los dos Handles, en la misma función (ejecutarProceso)

Saludos.