Foros Club Delphi - Ayuda con mi reproductor

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ayuda con mi reproductor (https://www.clubdelphi.com/foros/showthread.php?t=45298)

Khronos

28-06-2007 15:37:00

Ayuda con mi reproductor

Hola a todos!

Tengo un pequeño problema y no tengo ni idea de como resolverlo xD.
El problema es que me gustaria tener mi reproductor como predeterminado. Por ejemplo: en la propiedades de una cancion en formato mp3, si la das a propiedades y a elegir programa, si selecciono mi programa para que intente reproducir esa cancion no se como obtener la direccion del archivo que llamo a mi programa. No se si se entiende, mi pregunta es ¿como puede obtener la path del archivo que llamo a mi programa?

Os pongo una imagen del programa..:

jhonny

28-06-2007 16:50:36

La ruta de dicho archivo caerá como parámetro en tu aplicación, mejor dicho, supongamos que tu programa se llama ReproductorWay entonces cuando alguien abre un mp3(llamado jhonny.mp3) y le dice que se debe abrir con tu reproductor, Windows ejecutara tu programa asi, por ejemplo: ReproductorWay.exe C:\Musica\jhonny.mp3, entonces en ese orden de ideas la ruta de dicho archivo entra como parámetro a tu aplicación y la puedes capturar con:

Código Delphi [-]ParamStr(1);

Puedes comprobarlo ejecutando la siguiente linea:

Código Delphi [-]ShowMessage(ParamStr(1));

Espero te sirva ;).

Khronos

30-06-2007 01:43:49

Muchas gracias por el aporte, y ya solucione parte del problema.

Código:

procedure TFPrincipal.FormActivate(Sender: TObject);

var

I:integer;

begin

if paramcount>0 then begin

   for I:= 1 to ParamCount do begin

 listbox1.Items.Add(ExtractFileName(Paramstr(I)));

 listbox2.Items.Add(Paramstr(I));

   end;

listbox1.Enabled:=true;

panel3.Visible:=false;

speedbutton1.Visible:=true;

speedbutton2.Visible:=true;

speedbutton3.Visible:=true;

speedbutton4.Visible:=true;

speedbutton5.Visible:=true;

listbox1.Selected[0]:=true;

listbox2.Selected[0]:=true;

 

end;

Cuando lo utilizas con un solo archivo funciona, pero si seleccionas varios solo obtiene la path de uno. Es decir, en una carpeta en la que tengas musica mp3 seleccionas 3 y les das a reproducir, pues lo que pasa es que esta funcion solo me detecta la path del primer archivo...
No se que hacer :(

Lepe	30-06-2007 11:27:10

Quizás este hilo te sirva:

http://www.clubdelphi.com/foros/showthread.php?t=45287

Saludos

La franja horaria es GMT +2. Ahora son las 07:25:32.