相关疑难解决方法(0)

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

目前我使用这个函数,基于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;
Run Code Online (Sandbox Code Playgroud)

我可以用旗帜改进吗?可以在不实际创建文件的情况下完成测试吗?或者这个功能甚至已经在其中一个RTL或Jedi库中提供了?

windows delphi directory permissions

10
推荐指数
2
解决办法
8390
查看次数

获取文件系统限制

我想编写一个函数,告诉我是否可以将文件/文件夹写入特定路径.我想这样做而不实际将任何文件写入磁盘.是否有WINAPI函数?谢谢您的帮助.

windows delphi winapi delphi-7

8
推荐指数
2
解决办法
1010
查看次数

标签 统计

delphi ×2

windows ×2

delphi-7 ×1

directory ×1

permissions ×1

winapi ×1