delphi opendialog设置默认打开路径

最新推荐文章于 2024-02-26 16:34:03 发布

haibin_hu

最新推荐文章于 2024-02-26 16:34:03 发布

阅读量6.1k

点赞数

错误的：

path1 := ExtractFilePath(application.ExeName)+'\databack';
      if DirectoryExists(path1) then
      begin
         OpenDialog1.InitialDir:=path1;
      end;
      OpenDialog1.Execute;

正确的：

path1 := ExtractFilePath(application.ExeName)+'databack';
      if DirectoryExists(path1) then
      begin
         OpenDialog1.InitialDir:=path1;
      end;
      OpenDialog1.Execute;//设置属性之后弹出选择文件框

判断路径是否存在都正确，问题就出在 ExtractFilePath 本身就带路径后的斜杠，如：c:\nihao\，加上"\databack"，就是c:\nihao\\databack这个时候设置就没有作用了，去掉那个斜杠就正确了，还是得按规范来。。。

参考：http://bbs.csdn.net/topics/70477497