如何使用 Delphi 测试目录是否可写？

Question

目前我使用这个基于 JCL 代码的函数，它工作得很好：

function IsDirectoryWriteable(const AName: string): Boolean;
var
  FileName: PWideChar;
  H: THandle;
begin
  FileName := PWideChar(IncludeTrailingPathDelimiter(AName) + 'chk.tmp');

  H := CreateFile(FileName, GENERIC_READ or GENERIC_WRITE, 0, nil,
    CREATE_NEW, FILE_ATTRIBUTE_TEMPORARY or FILE_FLAG_DELETE_ON_CLOSE, 0);

  Result := H <> INVALID_HANDLE_VALUE;

  DeleteFile(FileName);
end;

有什么我可以用标志改进的吗？ 可以在不实际创建文件的情况下完成测试吗？ 或者这个功能是否已经在 RTL 或 Jedi 库之一中可用？

Answer 1

实际上写入目录是确定目录是否可写的最简单方法。有太多的安全选项可供单独检查，即使如此，您也可能会错过一些东西。

您还需要在调用DeleteFile()之前关闭打开的句柄。无论如何，您都不需要调用它，因为您使用的是 FILE_FLAG_DELETE_ON_CLOSE 标志。

顺便说一句，您的代码中有一个小错误。您正在创建一个临时 String 并将其分配给 PWideChar，但是 String 在 之前超出了范围，释放了内存实际上使用了>PWideChar。您的 FileName 变量应该是 String 而不是 PWideChar。在调用 CreateFile() 时进行类型转换，而不是之前。

试试这个：

function IsDirectoryWriteable(const AName: string): Boolean; 
var 
  FileName: String; 
  H: THandle; 
begin 
  FileName := IncludeTrailingPathDelimiter(AName) + 'chk.tmp'; 
  H := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE, 0, nil, 
    CREATE_NEW, FILE_ATTRIBUTE_TEMPORARY or FILE_FLAG_DELETE_ON_CLOSE, 0); 
  Result := H <> INVALID_HANDLE_VALUE; 
  if Result then CloseHandle(H);
end;

Answer 2

这是我使用 GetTempFileName 它将尝试在目标目录中创建一个唯一临时文件：

function IsDirecoryWriteable(const AName: string): Boolean;
var
  TempFileName: array[0..MAX_PATH] of Char;
begin
  { attempt to create a temp file in the directory }
  Result := GetTempFileName(PChar(AName), '
, 0, TempFileName) <> 0;
  if Result then
    { clean up }
    Result := DeleteFile(TempFileName);
end;

Answer 3

Andreas...

使用安全 API 来获取文件/目录的有效权限是一个 PIA 混乱，而且不可靠。 （我转储了所有这样做的代码，只是检查是否可以在目录中写入文件。）

Cf，http://www.ureader.com/msg/16591730.aspx

（我还有其他参考资料，但我是新用户，只能发布一个链接。只需关注以及上面链接中给出的 URL。）

Answer 4

当然，您所需要做的就是验证您对目录的访问权限。这是什么问题：

function IsDirectoryWriteable(aName : String);
var
  FileObject : TJwSecureFileObject;
  DesiredAccess: ACCESS_MASK;
begin
  DesiredAccess := FILE_GENERIC_WRITE;
  FileObject := TJwSecureFileObject.Create(aName);
  try
    result := FileObject.AccessCheck(DesiredAccess);
  finally
    FileObject.Free;
  end;
end;