x:=ExtractFileName(str); //取文(wén)件名(míng)+扩展名(míng)，不包含文(wén)件路径
y:=ExtractFileExt(str); //取文(wén)件的扩展名(míng)
Delphi 获取文(wén)件夹路径最后一级文(wén)件夹目录名(míng)称:
var
dir: string;
begin
dir := 'D:\delphi\lib';
dir := ExtractFileName(dir);
ShowMessage(dir); //结果 lib
end;