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 listview 与数据库连接

Delphi fmx自定义对话框样式，多屏幕布局

Delphi 高亮选中memo某一行

Delphi idftp 详解

Delphi webbrowser 查找对话框

Delphi cef4Delphi 常用设置

Delphi fdmemtable内存表操作

Delphi 获取\xxx\xxxx\1234最后一级名称

Delphi idhttp 获取链接连通状态

Delphi 中 findwindow 和 findwindowex 的语法和用法

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

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