怎样实现固定opendialog和savedialog的打开默认路径？

Question

您问问题能加一下逗号吗？直接指定initialDir就行了，如果要指定程序启动的目录，用   "."  ，如果是程序启动目录的上级目录，用  ".." ，如果是相对程序启动目录下的目录，用".\dirname"

Answer 1

opendialog使用：
procedure Treback_infor.Button1Click(Sender: TObject);
begin
opendialog1.Filter:='(*.mdb)|*.mdb';
opendialog1.FilterIndex:=0;
opendialog1.InitialDir:='..\data';
if opendialog1.Execute=true then
 begin
   rbedit1.Text:=opendialog1.FileName;
 end;
end;
savidialog使用：
procedure Treback_infor.Button2Click(Sender: TObject);
begin
savedialog1.Filter:='(*.mdb)|*.mdb';
savedialog1.FilterIndex:=0;
if savedialog1.Execute then
 begin
 savedialog1.InitialDir:='.\reback';
  savedialog1.FileName:=savedialog1.FileName+'.mdb';
  rbedit2.Text:=savedialog1.FileName;
 end;
end;
但是效果好像总是衣opendialog上一次打开的路径为准，所写代码不起作用。
是否是因为没有打包文件，没有安装程序的原因？

Answer 2

SaveDialog1.InitialDir:=ExtractFilePath(Application.ExeName)+'data';

Answer 3

savedialog1.InitialDir:=Getdir()+'\data'