Hola Amigos Foreros.....nuevamente solicitando de su ayuda.
Estoy tratando de hacer un programa en delphi (D6), que me permita lo siguente:
1.- Abrir una aplicación dependiendo del archivo que quiero abrir (archivo de video).
2.- Que dicha aplicación reproduzca el archivo y que se cierre automáticamente cuando termine de reproducirlo.
3.- Que desde delphi, espere a que termina de reproducirlo, para ejecutar otro proceso.
Hasta ahorita tengo esto:
Código Delphi
[-]procedure TForm1.btnReproducirClick(Sender: TObject);
var
St : array[0..255] of char;
begin
With lvLista do
begin
i:=0;
While i< Items.Count do
begin
if lvLista.Items[i].Checked then
begin
ShellExecute(Handle,'open',StrPCopy(St,Items.Item[i].SubItems.Strings[1]),nil,nil,SW_SHOW);
end;
inc(i);
end;
end;
end;
Hace algo de lo que necesito....abre el archivo seleccionado junto con la aplicación asociada al archivo....pero necesito que despues de que termine de reproducirse, se ejecute algo mas....y sí le agrego código, despues de ShellExecute, lo ejecuta sin que se haya terminado la reproducción.
Y también me encontré esto:
Código Delphi
[-]
procedure TForm1.btnReproducirClick(Sender: TObject);
var
Ventana: HWND;
NumProceso:Cardinal;
begin
Application.Minimize;
NumProceso:=ejecutarProceso('C:\Program Files (x86)\KaraFun\KaraFun.exe');
if NumProceso<>0 then
WaitForSingleObject(numProceso,INFINITE);
Application.Restore;
end;
El codigo anterior, haria falta para completar lo q necesito. Con este código quedaría resuelto sí en la parte de
"NumProceso:=ejecutarProceso('C:\Program Files (x86)\KaraFun\KaraFun.exe');", le pudiera indicar q ejecute el archivo "pista1.cdg" o cualquier otro, talvez de la siguiente forma:
"NumProceso:=ejecutarProceso('C:\Program Files (x86)\KaraFun\KaraFun.exe@pista1.cdg');"....que realmente no sé sí se le pueda pasar como parámetro.
Abre la aplicacion externa que le indico y mi aplicacion esta en espera hasta que el programa q abrio, se cierre. Este proceso incluye una función (ejecutarProceso):
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(PChar(nombreProceso), nil,
nil, nil, false, 0, nil, nil,
infoInicio, infoProceso) then
Result := infoProceso.hProcess;
end;
Pero con lo anterior solo logro abrir la aplicación y cuando la cierro...el control vuelve a mi programa de delphi....pero no se como decirle q tambien me reproduzca el archivo en cuanto se abre la aplicacion externa.
Estos códigos hacen lo que requiero, pero por separado....alguna otra forma de hacerlo? o combinar estos códigos para lograr lo q necesito?
Espero haberme hecho entender....agradezco su tiempo compañeros....Saludos.