DeletePath

最新推荐文章于 2022-08-25 23:26:30 发布

seagull327

最新推荐文章于 2022-08-25 23:26:30 发布

阅读量587

点赞数

文章标签： string function

本文链接：https://blog.csdn.net/haiou327/article/details/5717037

版权

function DeletePath(mDirName: string): Boolean; { 返回删除指定目录是否成功 }
var
vSearchRec: TSearchRec;
vPathName: string;
K: Integer;
begin
Result := True;
vPathName := mDirName + '/*.*';
K := FindFirst(vPathName, faAnyFile, vSearchRec);
while K = 0 do begin
      if (vSearchRec.Attr and faDirectory > 0) and
        (Pos(vSearchRec.Name, '..') = 0) then begin
          FileSetAttr(mDirName + '/' + vSearchRec.Name, faDirectory);
          Result := DeletePath(mDirName + '/' + vSearchRec.Name);
        end else if Pos(vSearchRec.Name, '..') = 0 then begin
          FileSetAttr(mDirName + '/' + vSearchRec.Name, 0);
          Result := DeleteFile(PChar(mDirName + '/' + vSearchRec.Name));
        end;
      if not Result then Break;
      K := FindNext(vSearchRec);
    end;
FindClose(vSearchRec);
Result := RemoveDir(mDirName);
end;