如何得到应用程序EXE的路径，如何将应用程序的路径设回最初路径(100分)

我做了个程序，其中部分参数从一个XML文档中得到，但当我完成报表的保存功能后
，程序的路径发生改变了，系统无法在得到XML文档，求如何得到应用程序EXE的路径，
如何将应用程序的路径设回最初路径的方法。。。。

ExtractFilePath(ParamStr(0));

通过下面的函数，可以方便地对文件名进行操作：
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(Application.Name)

extractfilepath(application.ExeName);

Extractfilepath(Application.ExeName);//应用程序路径
SetDefaultDir()//设置当前路径

Extractfilepath(Application.ExeName);
SetDefaultDir();

不用这样啊，你把根本程序相关的文件东东都放在这个目录下，或建子目录，用相对路径访问就行了

移动目录当然是整个应用程序及目录移动