delphi-删除文件夹

//删除文件夹
 procedure DeleteDirectory(const Name: string);
var
  F: TSearchRec;
begin
  if FindFirst(Name + '\*', faAnyFile, F) = 0 then begin
    try
      repeat
        if (F.Attr and faDirectory <> 0) then begin
          if (F.Name <> '.') and (F.Name <> '..') then begin
            DeleteDirectory(Name + '\' + F.Name);
          end;
        end else begin
          SysUtils.DeleteFile(Name + '\' + F.Name);
        end;
      until SysUtils.FindNext(F) <> 0;
    finally
      SysUtils.FindClose(F);
    end;
    SysUtils.RemoveDir(Name);
  end;
end;

// cmd命令写法 winexec(PAnsiChar(‘cmd.exe /C rd/s/q A:\1’),SW_HIDE)
// /C表示执行完后自动关闭界面