delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开

本文整理自网络，侵删。

 
procedure CreateOpenDir(h : THandle; dir : string ; IsOpen : Boolean = False);
var
  s : Cardinal;

begin
  if not DirectoryExists( dir ) then //判断目录是否存在
  begin
    ForceDirectories(dir);
  //  fileSetAttr(dir,faDirectory);
  //  CreateDirectory(PChar( dir ), nil);
  end;

  if IsOpen then
  begin
    ShellExecute(0,'open',nil,nil,PWideChar( dir ),SW_SHOW);
  end;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
CreateOpenDir(self.Handle,'C:\123',true);
end;
 

相关阅读 >>

Delphi 数字转换成中文

Delphi 深入了解unigui hyperserver

Delphi extractfileext() 获取文件后缀的函数

Delphi d10.x 安卓app开发中创建密钥库文件

Delphi xe中泛型数组的使用范例

Delphi xe5 与其他版本共存

Delphi stringgrid之属性大全

Delphi for xx in xx do 语法的使用示例

Delphi 打开android应用信息

Delphi 搜索字符串

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

转载请注明出处：木庄网络博客 » delphi 判断目录是否存在,不存在则创建目录并打开,存在则直接打开