ExtractFilePath(Application.ExeName); //用ParamStr也可以
GetCurrentDir(); //注:这个函数当前转换目录或安装windows 启动项时会出现问题,这时就不再是程序当前的目录,。
// 返回当前运行文件的所在路径(最后带/)
ExtractFilePath(Application->ExeName)
// 返回当前运行文件的所在目录(最后不带/)
ExtractFileDir(Application->ExeName)
备注:
在DLL中使用ExtractFilePath(ParamStr(0)),否则去除Package后编译不通过(补充日期 2007-12-7)
2009-2-28 补充 函数 说明
ExpandFileName() 返回文件的全路径(含驱动器、路径)
ExtractFileExt() 从文件名中抽取扩展名
ExtractFileName() 从文件名中抽取不含路径的文件名
ExtractFilePath() 从文件名中抽取路径名
ExtractFileDir() 从文件名中抽取目录名
ExtractFileDrive() 从文件名中抽取驱动器名
ChangeFileExt() 改变文件的扩展名
ExpandUNCFileName() 返回含有网络驱动器的文件全路径
ExtractRelativePath() 从文件名中抽取相对路径信息
ExtractShortPathName() 把文件名转化为DOS的8:3格式