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;