如何在opendialog等控件改变当前路径后，将当前路径指向程序运行路径？

Question

程序中用了大量的’.\‘路径指向，调用savedialog后，所用文件路径全部出错，有没有方便方法将当前路径改回来？

Answer 1

可以声明一个全局字符串型变量AppDir，在Form的OnCreate事件中用getDir(0,AppDir)将当前路径保存下来，在需要使用当前路径的地方用AppDir+'\'就行了。

Answer 2

var
filepath:string;
Filepath:=ExtractFilePath(Paramstr(0))+opendialog1.filename;
你看看行不行

Answer 3

OpenDialog.filename:=ExtractFilePath(Application.ExeName) +'报告模板\123.ini';
这样，打开的就是在当前执行的文件的目录下的“报告模板”下123.ini文件。

Answer 4

我的意思是有没办法让系统默认的当前目录为应用程序目录。
即如果.\可为一变量的话
.\:=ExtractFileDir(Application.ExeName);