Eliminar directorio con subdirectorio.

[pgranados]

Buen día compañeros, necesito eliminar un directorio el cual tiene subcarpetas y estas carpetas tienen archivos.

Estoy utilizando

Código Delphi [-]
RemoveDir(RutaCarpeta)

Pero únicamente me elimina el directorio si no tiene subcarpetas dentro.

¿Alguien tiene algún ejemplo para aplicarlo en mi proyecto? Saludos.

[pgranados]

Ya lo resolví, si alguien necesita el código es:

Código Delphi [-]
use shellapi;
var
  ShOp: TSHFileOpStruct;
begin
  ShOp.Wnd := Self.Handle;
  ShOp.wFunc := FO_DELETE;
  ShOp.pFrom := PChar('RUTA'#0);
  ShOp.pTo := nil;
  ShOp.fFlags := FOF_NO_UI;
  SHFileOperation(ShOp);

[[ElKurgan]]

Gracias por compartir la solución

Saludos