Delphi里删除目录的函数

其实网上已经有很多的例子了，不过对于和我一样的初学者来说难免会遇到问题，我试过win32Api函数，也试过用removeDirectory，但都删不掉指定目录，分析了一下，很显然，是这些函数只是单纯的删除空文件夹，非空文件夹删不了的。也不知是不是我用的不对，总之用了下面这个函数挺灵的，帖出来大家分享下。

 

 

 function TMainForm.DeleteDirectory(NowPath: string): Boolean; //删除整个目录 var search: TSearchRec; ret: integer; key: string; begin if NowPath[Length(NowPath)] <> '/' then NowPath := NowPath + '/'; key := Nowpath + '*.*'; ret := findFirst(key, faanyfile, search); while ret = 0 do begin if ((search.Attr and fadirectory) = faDirectory) then begin if (Search.Name <> '.') and (Search.name <> '..') then DeleteDirectory(NowPath + Search.name); end else begin if ((search.attr and fadirectory) <> fadirectory) then begin deletefile(NowPath + search.name); end; end; ret := FindNext(search); end; findClose(search); removedir(NowPath); result := True; end;