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 判断图像格式bmp jpg gif pcx png psd ras sgi tiff err

Delphi 和微软的 azure 云存储

Delphi 简化版的inputquery 中文版输入对话框

Delphi 检测用户超过多长时间没有操作键盘或鼠标

datasnap服务器如何得到客户端的ip和端口

Delphi webbrowser1去边框

Delphi版多开源码,也就是遍历系统内核对象句柄

Delphi操作excel说明

Delphi 加壳原理与简单实现加壳

Delphi 最快字符串查找(匹配)算法

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

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