1 方法一：不带\
2
3 GetCurrentDir
4
5
6
7 方法二：带\
8
9 ExtractFilePath(Application.ExeName);
10
11 方法三：带\
12
13 ExtractFilePath(paramstr(0))
14 edit1.Text:=ParamStr(0);//自己全路径c:/555/qq.exe,可用于控制台
15 edit1.text:=ExpandFileName(ParamStr(0)); //获取本程序的完整路径 c:/qq/2.exe
16 edit2.text:=ExtractFileDir(ParamStr(0)); //获取本程序的路径 c:/qq
17 edit3.text:=application.Exename; //获取本程序的完整路径 c:/qq/2.exe,和第1个一样
18 edit4.text:=ExtractFilename(Application.Exename); //获得文件名2.exe
19
20
21
22 ExpandFileName() 返回文件的全路径(含驱动器、路径)
23 ExtractFileExt() 从文件名中抽取扩展名
24 ExtractFileName() 从文件名中抽取不含路径的文件名
25 ExtractFilePath() 从文件名中抽取路径名
26 ExtractFileDir() 从文件名中抽取目录名
27 ExtractFileDrive() 从文件名中抽取驱动器名
28 ChangeFileExt() 改变文件的扩展名
29 ExpandUNCFileName() 返回含有网络驱动器的文件全路径
30 ExtractRelativePath() 从文件名中抽取相对路径信息
31 ExtractShortPathName() 把文件名转化为DOS的8·3格式
32 MatchesMask() 检查文件是否与指定的文件名格式匹配
