Abrir aplicacion, reproducir archivo y esperar a q termine

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

Prueba a cambiar la función ejecutarProceso por esta (he cambiado los 2 primeros parámetros):

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;

Y ahora en la llamada pásale no sólo el nombre del EXE, sinó el EXE más el fichero a reproducir; Algo así:

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

Ya dirás...

[mRoman]

Ok...gracias Neftali por responder.....lo pruebo y te comento.

[mRoman]

Que tal Neftali.

Modifiqué el código y no reprodujo el archivo, el cual lo toma de un ListView, donde esta todo la ruta del archivo, se lo agregue como parámetro a la funcion "ejecutarProceso", como tu lo indicaste y no funciono....talvez la forma en como se lo paso, es decir tendrá algo que ver que lo tome de un listview?

Saludos.

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;

Y la función quedó como tu la escribiste.

[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.