caption:= ExtractFileExt(‘带路径，带扩展名的文件名’);//返回的就是扩展名
caption:= ChangeFileExt(ExtractFileName(‘带路径，带扩展名的文件名’),'')//返回的就是不带路径，不带扩展名的文件名
