Hola, Como se haría esto?

[rgstuamigo]

Podría ser así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Nombre:String;
begin
    Nombre:= ExtractFileName('C:\MyMúsica\MyPista1.wma');//Extraigo el nombre del archivo de esa direccion 
    ShowMessage(Nombre);//<--aqui muestra "MyPista1.wma"
end;

Saludos...

[El._.Dani]

Muchas Gracias compi gracias a eso lo he conseguido hacer para todas las canciones


Mil Gracias

[rgstuamigo]

Empezado por El._.Dani

Muchas gracias por tu ayuda pero eso solo es para la cancion que pusiste, yo lo quiero para cualquier cancion que se abra, intentaré mientras haber como lo hago.

Espero respuestas

PD: Muchas gracias rgstuamigo

Por supuesto que es para una canción... ten en cuenta que es solo un ejemplo , lo que en realidad debes hacer tu es:

Código Delphi [-]
...
ListBox1.Items.Add(ExtractFileName(TuPath));
...

en tu rutina donde agregas cada canción a tu listBox..

[rgstuamigo]

Ahora si la quieres más facil puedes usar el componente TFileListBox(Pestaña Win 3.1 de la paleta de componentes ) y configurar la máscara para que automáticamente lea los archivos de música (sin codificar nada), sólo debes indicarles los paths(separado por punto y coma ";" entre cada Path) en su propiedad Mask para que automaticamente te muestre los archivos en los item del TFileListBox, por ejemplo la propiedad Mask del FileListBox podría ser así:

Código Delphi [-]
Mask = C:\MyMúsica\*.wma;D:\OtrasMúsicas\*.mp3

Con esa máscaras lo que estamos haciendo es mostrar en nuestro componente TFileListBox todos los nombres de los archivos que estan en C:\MyMúsica que tienen la extensión .wma y todos los archivos que estan en D:\OtrasMúsicas que tienen la extensión .mp3.
Espero que se haya entendido.
Saludos...

[El._.Dani]

Gracias compi gracias a tu ejemplo de arriba lo conseguir hacer ;-) Haber si cuando tenga una version mas estable lo subo para que lo veais. Aunque no será la primera cosa que pregunta


Muchas Gracias