delphi opendialog设置默认打开路径

本文整理自网络，侵删。

 
错误的：
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这个时候设置就没有作用了，去掉那个斜杠就正确了，还是得按规范来。。。
 

相关阅读 >>

Delphi doc转txt

Delphi 如何使用findfirst搜索不同的文件类型？

Delphi http post json示例

Delphi opendialog控件用法

Delphi开发平台 raw socket

Delphi nethttpclient post 函数

Delphi touchkeyboard1 基本用法

Delphi 控制台 输入输出实例代码

Delphi tms web core 获取url 参数

Delphi打开外部程序或文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi opendialog设置默认打开路径