delphi 判断目录是否可写


本文整理自网络,侵删。

 
FUNCTION WritableDir(CONST Dir : STRING) : BOOLEAN;
  VAR
    FIL : FILE;
    N   : STRING;
    I   : Cardinal;

  BEGIN
    REPEAT
      N:=IncludeTrailingPathDelimiter(Dir);
      FOR I:=1 TO 250-LENGTH(N) DO N:=N+CHAR(RANDOM(26)+65)
    UNTIL NOT FileExists(N);
    Result:=TRUE;
    TRY
      AssignFile(FIL,N);
      REWRITE(FIL,1)
    EXCEPT
      Result:=FALSE
    END;
    IF Result THEN BEGIN
      CloseFile(FIL); 
      ERASE(FIL)
    END
  END;

相关阅读 >>

Delphi之屏幕和窗口的坐标

Delphi 数组定义

Delphi tnethttpclient https忽略证书验证

Delphi 对比两个文件是否相同的函数

汇编基础寄存器

Delphi kmp(字符串匹配)算法

Delphi使用spcomm实现串口通信 基础知识

Delphi中禁止webbrowser右键的方法

Delphi 怎样判断windows的dpi大小?

Delphi 内存池

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...