怎样得到应用程序的当前路径？(50分)

怎样得到应用程序的当前绝对路径呢？

通过下面的函数，可以方便地对文件名进行操作：
1. ExpandFileName
将当前驱动器名(盘符)、路径名和指定的文件名合成一个绝对文件名。
函数原型如下：
function ExpandFileName(const FileName: string): string;
返回值为合成的绝对文件名。
2. ExpandUNCFileName
获取一个以U N C 格式的包括网络驱动器名的绝对文件名。
函数原型如下：
function ExpandUNCFileName(const FileName: string): string;
3. ExtractFileDir
从绝对文件名中获取目录名。
函数原型如下：
function ExtractFileDir(const FileName: string): string;
4. ExtractFileDrive
从绝对文件名中获取驱动器号(盘号)。
函数原型如下：
function ExtractFileDrive(const FileName: string): string;
5. ExtractFileExt
从绝对文件名中获取文件名的扩展名。
函数原型如下：
function ExtractFileExt(const FileName: string): string;
6. ExtractFileName
从绝对文件名中获取文件名。
函数原型如下：
function ExtractFileName(const FileName: string): string;
7. ExtractFilePath
从绝对文件名中获取路径名。
函数原型如下：
function ExtractFilePath(const FileName: string): string;
8. ExtractRelativePath
从绝对文件名中获取相对于某一个路径的相对路径名。
函数原型如下：
function ExtractRelativePath(const BaseName, DestName: string): string;
9. ExtractShortPathName
将长文件名转化成短文件名。
函数原型如下：
function ExtractShortPathName(const FileName: string): string;


如:如要获得exe文件所在的路径，则用：
ExtractFilePath(Application.ExeName)

ExtractFilePath(ParamStr(0));

怎麼那麼麻煩：ParamStr(0) 就是當前exe的完整路徑+文件名
加入叫A.exe
dir := Copy(ParamStr(0), 1, i - 5 )

s := extractfilepath(application.exename)

来迟了：P

多人接受答案了。