Delphi獲取文件名、不帶擴展名文件名、文件所在路徑、上級文件夾路徑的方法

1.獲取不帶擴展名的文件名方法，利用ChangeFileExt函數修改傳入參數的擴展爲空，並不會對文件自己產生變動。

ChangeFileExt(ExtractFileName('D:\KK\Test\123.txt'),'');  //返回 123

2.獲取上級文件夾路徑的方法。

ExtractFileDir('D:\KK\Test\')+'..';  //返回 D:\KK\

3.獲取完整文件或文件夾路徑中的驅動器。

ExtractFileDrive('D:\KK\Test\');  //返回 D:

4.獲取完整文件名中的路徑，最後帶"\"。

ExtractFilePath('D:\KK\Test\123.txt');  //返回 D:\KK\

5.獲取完整文件名中的路徑，最後不帶"\"。

ExtractFileDir('D:\KK\Test\123.txt');  //返回 D:\KK

6.獲取完整文件名中的文件名稱(帶擴展名)。

ExtractFileName('D:\KK\Test\123.txt');  //返回 123.txt

7.獲取完整文件名中的文件擴展名(帶.)。

ExtractFileExt('D:\KK\Test\123.txt');  //返回 .txt

8.獲取相對路徑。(參數：BaseName：基準文件名，DestName：目標文件名，注意\的使用)

ExtractRelativePath('D:\KK\', 'D:\KK\Test');  //返回 Test
ExtractRelativePath('D:\KK\', 'D:\KK\Test\hi'); //返回 Test\hi
ExtractRelativePath('D:\KK\Test\hi', 'D:\KK'); //返回 ..\..\KK
ExtractRelativePath('D:\KK\Test\hi', 'D:\KK\Test'); //返回 ..\Test

9.獲取短文件名，即8+3的DOS格式，文件名8位，擴展名3位。

ExtractShortPathName('D:\KK\Program Files\12345 78 9.txt'); //返回 D:\KK\Progra~1\123457~1.txt

10.獲取含有網絡驅動器的文件全路徑。

ExpandUNCFileName('H:\KK\delphi.exe'); //返回格式爲「//機器名\共享名\文件名」

11.檢查文件是否與指定的文件名格式匹配，支持通配符。

MatchesMask('D:\KK\Test\123.txt', '*.?x?');  //返回 True