DELPHI 取文件名和扩展名

x:=ExtractFileName(str);  //取文件名+扩展名，不包含文件路径
 y:=ExtractFileExt(str);   //取文件的扩展名