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;

procedure TForm1.Button1Click(Sender: TObject);

begin

CreateOpenDir(self.Handle,'C:\123',true);

end;

推荐分享