Delphi文件路径获取及其相关函数示例
Application.ExeName 就是调用的 ParamStr(0)
ParamStr(0) : C:\test1\test2\ test.exe
ExtractFileDir(ParamStr(0)) C:\test1\test2
ExtractFileDrive(ParamStr(0)) C:
ExtractFileExt(ParamStr(0)) .exe
ExtractFileName(ParamStr(0)) test.exe
ExtractFilePath (ParamStr(0)) C:\test1\test2\ //注意和Dir的区别,仅仅是差一个‘\’