已知某个文件的全部路径，如d:\aa\bbb\ccc\0.jpg 如何得到0.jpg的父目录名称cc呢？

已知某个文件的全部路径，如d:\aa\bbb\ccc\0.jpg 如何得到0.jpg的父目录名称cc呢？ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20061015163508240.html
请问有没有直接的函数可以做到呢？

wpath:=ExtractFilePath(fn);

谢谢，可是我只是想要这个ccc而非整个路径，如何做到呢？

ExtractFileName

谢谢，可是我只是想要这个ccc而非整个路径，如何做到呢？  
  ->  
  没有直接的函数  
 

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      s:string;  
      sl:tstringlist;  
  begin  
      sl   :=   tstringlist.Create;  
      s   :=   'd:\aa\bbb\ccc\0.jpg';  
      sl.Delimiter   :=   '\';  
      sl.DelimitedText   :=s;  
      showmessage(sl.Strings[sl.Count-2]);  
      sl.Free;  
  end;

mark

向andyzhou1101学习  
  DelimitedText我第一次看到，谢谢！