Código Delphi [-] ExtractFileName(ShellListView1.SelectedFolder.PathName)
ExtractFileName(ShellListView1.SelectedFolder.PathName)