Podría ser así:
Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var Nombre:String;
begin
Nombre:= ExtractFileName('C:\MyMúsica\MyPista1.wma'); ShowMessage(Nombre);end;
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Última edición por rgstuamigo fecha: 09-03-2010 a las 17:09:44.
|