delphi中使用ExtractFile加Ext,Path,Drive,Name,Dir获取路径中的扩展名，路径，盘符，文件名等

Path := 'C:\Folder\Subfolder\FileName.txt';
ExtractFileDir(Path)  //获取目录，值为C:\Folder\Subfolder
ExtractFilePath(Path)  //获取文件路径，值为C:\Folder\Subfolder\
ExtractFileExt(Path)  //获取路径中的扩展名，值为.txt
ExtractFileDrive(Path)  //获取盘符或驱动器,值为C:\
ExtractFileName(Path)  //获取文件名，值为FileName.txt
ChangeFileExt(ExtractFileName(AFileName), '');  //获取不含扩展名的文件名

ExtractFilePath(Application.ExeName)  //获取程序自身的路径
ExtractFilePath(ParamStr(0));       //同上，结果相同，路径不包括文件名
ExtractFilePath(ParamStr(0));       //同上，只是不包括最后的\，ExtractFileDir(Path)

***特别注意使用以上函数，路径中的斜必须是向右下，如是向左下斜(网址中使用)的，在delphi中这个路径仍然有效，但使用上面函数获取的值就会出错。
如：Paht:=D:/soft/Alibaba-PuHuiTi-Bold.ttf 使用ExtractFileName(Path)获取到的文件名是/soft/Alibaba-PuHuiTi-Bold.ttf，而不是Alibaba-PuHuiTi-Bold.ttf