刪除整個資料夾

bestlong

RmDir() 與 RemoveDirectory() 都只能刪除空資料夾，想直接刪除有包含資料的整個目錄可以用下列程式：

1. function DelTree(DirName: string):Boolean;
   
2. var
   
3.   SHFileOpStruce: TSHFileOpStruct;
   
4.   DirBuff: array[0..255] of Char;
   
5. begin
   
6.   try
   
7.     FillChar(SHFileOpStruce, SizeOf(SHFileOpStruce), 0);
   
8.     FillChar(DirBuff, SizeOf(DirBuff), 0);
   
9.     StrPCopy(DirBuff, DirName);
   
10.     with SHFileOpStruce do
    
11.     begin
    
12.       Wnd := 0;
    
13.       pFrom := @DirBuff;
    
14.       wFunc := FO_DELETE;
    
15.       fFlags := FOF_ALLOWUNDO;
    
16.       fFlags := fFlags or FOF_NOCONFIRMATION;
    
17.       fFlags := fFlags or FOF_SILENT;
    
18.     end;
    
19.     Result := (SHFileOperation(SHFileOpStruce)=0);
    
20.   except
    
21.     Result := False;
    
22.   end;
    
23. end;

複製代碼

程式來源 http://delphi.about.com/cs/adptips1999/a/bltip1199_2.htm