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

最新推荐文章于 2022-07-14 07:09:33 发布

原创最新推荐文章于 2022-07-14 07:09:33 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi

Delphi 专栏收录该内容

53 篇文章

订阅专栏

本文提供了一种自定义的方法来检测文件目录的写入权限。通过创建和删除临时文件的方式来判断目标目录是否允许写操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

没有找到判断目录是否有写入权限，自己写了一个，我觉得应该是有相应的函数的，但是没有找到。

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;