Ayuda con mi reproductor

[Khronos]

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]

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]

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

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]]

Quizás este hilo te sirva:

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

Saludos