Menghapus Folder Beserta File Didalamnya

Menghapus Folder Beserta File didalamnya.

Buat fungsi sebagai berikut :
function RemDir(const Path: string): Boolean;<br />var<br />  SHFileOpStruct: TSHFileOpStruct;<br />  DirBuf: array[0..255] of Char;<br />begin<br />  if DirectoryExists(Path) then<br />  try<br />    FillChar(SHFileOpStruct, Sizeof(SHFileOpStruct), 0);<br />    FillChar(DirBuf, Sizeof(DirBuf), 0);<br />    StrPCopy(DirBuf, Path);<br />    with SHFileOpStruct do<br />    begin<br />      Wnd := 0;<br />      pFrom := @DirBuf;<br />      wFunc := FO_DELETE;<br />      fFlags := FOF_NOCONFIRMATION or FOF_SILENT;<br />    end;<br />    Result := SHFileOperation(SHFileOpStruct) = 0;<br />  except<br />    Result := False;<br />  end;<br />end;
cara makenya :
misal ada folder di drive C: dan di dalamnya ada folder-folder dan file-file. kalo dihapus akan ikut terhapus semua folder dan file di dalamnya.
procedure TForm1.Button1Click(Sender: TObject);<br />begin<br />RemDir('C:\Folder A');<br />end;