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 xe ttask.waitforall/waitforany 一不小心会造成内存泄露

Delphi 7中ado控件打开access数据库文件

Delphi jpeg图片压缩

winapi 字符及字符串函数(2): charlowerbuff - 把缓冲区中指定数目的字符转小写

Delphi动态复选框源码

Delphi 苹果系统弹出链接

Delphi 用idhttp得到本机外网ip

Delphi trimleft 删除字符串左边的空格

Delphi webbroker 上传文件

Delphi 创建快捷方式的单元文件

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

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