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;
 

相关阅读 >>

Delphi 判断是否出现滚动条

Delphi xe下支持unicode编码方式

Delphi 显示简单图形

[Delphi] 计算目录大小的函数，获得目录文件列表，计算文件的大小

Delphi 遍历类中的属性

Delphi 简单的倒计时算法

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi idhttp代理设置

Delphi 计算l两个日期的时间间隔月数，月数差

Delphi中隐藏程序进程

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

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