delphi 获取文件所在路径

//delphi 获取文件所在路径

ExtractFileDrive ：返回完整文件名中的驱动器，如"C:"

ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:/test/"

ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:/test"

ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.doc"

ExtractFileExt 返回完整文件名中的文件扩展名（带.），如".doc"

ExtractRelativePath ： 返回相对路径，定义如下：

function ExtractRelativePath(const BaseName, DestName: string): string;

使用测试下如：

SysUtils.ExtractRelativePath('C:/test','C:/Test/TestRelativePath'):返回TestRelativePath

SysUtils.ExtractRelativePath('C:/Test/TestRelativePath','C:/test'):返回'../TestRelativePath'

SysUtils.ExtractRelativePath('C:/Test/TestRelativePath/','C:/test'):返回'../../TestRelativePath'

ExtractShortPathName :返回短文件名，即8+3，文件名长八位，扩展名为3号，为保持DOS系统兼容而存在

若想获取的文件名不带路径,可用:

ChangeFileExt(TIdAttachment(Msg.MessageParts.Items[intIndex]).Filename,''); 函数将扩展名改掉即可。