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 无窗体无界面exe怎么做？

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi中使用android振动

减小Delphi xe5编译出来的程序体积

Delphi将excel导入access

tstringlist 常用操作

Delphi http远程屏幕源码

Delphi 怎么截取文件路径字符串，只保留文件名

Delphi字符串、数组操作函数

Delphi monthcalendar1 获取选中日期

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

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