我自己的觉得最好的删除目录函数。。。

Question

//在论坛里搜索了很多，都用到什么chdir，都不好用，
//所以自己写个最简洁的贡献出来。function Deltree(sDir: string): Boolean;
var
        hFindFile: HWND;
        FindFileData: WIN32_FIND_DATA;
        sr: TSearchRec;
begin
        sDir:= sDir + '\';        hFindFile:= FindFirstFile(pchar(sDir + '*.*'), FindFileData);
        if hFindFile <> NULL then
        begin
                while FindNextFile(hFindFile, FindFileData) <> FALSE do
                begin
                        if FindFileData.dwFileAttributes in [FILE_ATTRIBUTE_DIRECTORY] then
                        begin
                                if (strpas(FindFileData.cFileName) <> '.') and (strpas(FindFileData.cFileName) <> '..') then
                                begin
                                        Deltree(sDir + FindFileData.cFileName);
                                end;
                        end
                        else begin
                                deletefile(sDir + FindFileData.cFileName);
                        end;
                end;
        end;
        sr.FindHandle:= hFindFile;
        FindClose(sr);
        RemoveDir(sDir);
end;

Answer 1

第三次进来，终于忍不住要说了分太少了

Answer 2

其实就是循环递归删除所有文件最后删除文件夹啊。以前的帖子里面讨论过的，你仔细搜搜。