delphi 判断目录是否有写入权限

本文整理自网络，侵删。

 
function DirWritable(m_dir : string) : boolean;  //目录是否有写入权限 var tmpStrs: TStrings;  //测试数据目录是否写权限     tmpName : string;begin   //参数为目录，包含最后的斜杠   //如果可写，返回True   try     Result := True;    tmpStrs := TStringList.Create;    tmpStrs.Add('1and1-aMail');    tmpName := m_dir + 't1e2s3t4.txt';    tmpStrs.SaveToFile(tmpName);    TFile.Delete(tmpName);  except     on e: EFCreateError do     begin       //拒绝访问，无写入权限       Result := False;    end;  end;end;
 

相关阅读 >>

判断url的有效性

Delphi 无法调用cmd nbtstat命令解决办法

Delphi getfiletype 判断图像文件类型

Delphi 用 getenvironmentvariable 获取常用系统环境变量

Delphi byte类型算术运算

Delphi 存储文件到数据库

Delphi的unicode与gb2312转转换,汉字unicode转gb2312

Delphi实现关闭指定进程，自身防杀

Delphi 位运算

Delphi的split函数 4个版本

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

转载请注明出处：木庄网络博客 » delphi 判断目录是否有写入权限