获得当前程序目录路径

ExtractFilePath(Application.ExeName);  //用ParamStr也可以
GetCurrentDir();  //注：这个函数当前转换目录或安装windows 启动项时会出现问题，这时就不再是程序当前的目录,。

// 返回当前运行文件的所在路径（最后带/）
ExtractFilePath(Application->ExeName)
// 返回当前运行文件的所在目录（最后不带/）
ExtractFileDir(Application->ExeName)

 备注:
在DLL中使用ExtractFilePath(ParamStr(0))，否则去除Package后编译不通过(补充日期 2007-12-7)

BCB中与路径文件名相关的几个函数!
2009-2-28 补充函数　 　 　 说明
ExpandFileName()　 返回文件的全路径(含驱动器、路径)
ExtractFileExt()　 从文件名中抽取扩展名
ExtractFileName()　 从文件名中抽取不含路径的文件名
ExtractFilePath()　 从文件名中抽取路径名
ExtractFileDir()　 从文件名中抽取目录名
ExtractFileDrive()　　 从文件名中抽取驱动器名
ChangeFileExt()　 改变文件的扩展名
ExpandUNCFileName()　　返回含有网络驱动器的文件全路径

ExtractRelativePath() 从文件名中抽取相对路径信息
ExtractShortPathName() 把文件名转化为DOS的8:3格式