delphi 删除整个目录

本文整理自网络，侵删。

 
function DeleteDirectory(NowPath: string): Boolean; // 删除整个目录
var
  f : TSearchRec;
  ret: integer;
  key: string;

begin
  if not DeleteTree(NowPath) then
  begin
      if NowPath[Length(NowPath)] <> '\' then
        NowPath := NowPath + '\';
      key := NowPath + '*.*';
      
      ret := FindFirst(key, faAnyFile, f);
      while ret = 0 do
      begin
        if ((f.Attr and fadirectory) = fadirectory) then
        begin
          if (f.Name <> '.') and (f.name <> '..') then
            DeleteDirectory(NowPath + f.name);
        end
        else
        begin
          if ((f.Attr and fadirectory) <> fadirectory) then
          begin
            deletefile(NowPath + f.name);
          end;
        end;
        ret := FindNext(f);
      end;
      findClose(f);

      removedir(NowPath);// 如果需要删除文件夹则添加
      result := True;
  end;
end;
 

相关阅读 >>

Delphi radiogroup 组件基本用法

Delphi10及以上版本安装activex控件

Delphi 如何把字符串覆给数组

Delphi提取网页中的所有链接、点击第n个链接

Delphi中对进程内存进行读写

Delphi 将整数转换为罗马数字（字符串）2

Delphi getfilehashmd5获取文件 hashmd5值

Delphi 字符串截取

Delphi 判断指定字符串是否开头 startstext用法

Delphi中如何判断是否有程序全屏

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

转载请注明出处：木庄网络博客 » delphi 删除整个目录