delphi opendialog1 savedialog1 默认路径

delphi opendialog1 savedialog1 打开默认路径

opendialog1.InitialDir:=ExtractFilePath(Application.Exename);