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 extractclassname 字符串处理函数

Delphi 计算文件大小

Delphi实现webservice带身份认证的数据传输

Delphi源码一个对字符加密解密的实例

Delphi 获取单汉字拼音首字母

Delphi 判断文件是否存在

Delphi idhttp读取网页重定向

Delphi xe5-android开发 目录结构

Delphi使用迅雷的开放下载引擎下载

Delphi xe增强的rtti妙用－－动态创建包中的窗口类

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

转载请注明出处：木庄网络博客 » delphi 判断目录是否可写