其實(shí)網(wǎng)上已經(jīng)有很多的例子了，不過(guò)對(duì)于和我一樣的初學(xué)者來(lái)說(shuō)難免會(huì)遇到問(wèn)題，我試過(guò)win32Api函數(shù)，也試過(guò)用removeDirectory，但都刪不掉指定目錄，分析了一下，很顯然，是這些函數(shù)只是單純的刪除空文件夾，非空文件夾刪不了的。也不知是不是我用的不對(duì)，總之用了下面這個(gè)函數(shù)挺靈的，帖出來(lái)大家分享下。

 1function TMainForm.DeleteDirectory(NowPath: string): Boolean; //刪除整個(gè)目錄
 2var
 3  search: TSearchRec;
 4  ret: integer;
 5  key: string;
 6begin
 7  if NowPath[Length(NowPath)] <> '\' then
 8    NowPath := NowPath + '\';
 9  key := Nowpath + '*.*';
10  ret := findFirst(key, faanyfile, search);
11  while ret = 0 do begin
12    if ((search.Attr and fadirectory) = faDirectory)
13      then begin
14      if (Search.Name <> '.') and (Search.name <> '..') then
15        DeleteDirectory(NowPath + Search.name);
16    end else begin
17      if ((search.attr and fadirectory) <> fadirectory) then begin
18        deletefile(NowPath + search.name);
19      end;
20    end;
21    ret := FindNext(search);
22  end;
23  findClose(search);
24  removedir(NowPath);
25  result := True;
26end;
27