Fórum Apagar arquivos e pastas de um só vez #282143

function DelDir(hHandle: THandle; Const sPath : String;
   Confirm: Boolean): Boolean;
// use a funcão assim: DeleteDir(Self.Handle,´C:\TESTE´,True);
var OpStruc: TSHFileOpStruct;
    FromBuffer, ToBuffer: array[0..128] of Char;
begin
   try
      Result := False;

      FillChar(OpStruc, Sizeof(OpStruc), 0);
      FillChar(FromBuffer, Sizeof(FromBuffer), 0);
      FillChar(ToBuffer, Sizeof(ToBuffer), 0);
      StrPCopy(FromBuffer, sPath);

      with OpStruc do
      begin
         Wnd := hHandle;
         wFunc := FO_DELETE;
         pFrom := @FromBuffer;
         pTo := @ToBuffer;

         // Emite mensagem padrão do Windows, de confimação de exclusão
         // da pasta e todo o seu conteúdo.
         if not Confirm then
            fFlags:= FOF_NOCONFIRMATION;

         fAnyOperationsAborted := False;
         hNameMappings := nil;
      end;

      if ShFileOperation(OpStruc) = 0 then
         Result := True;
   except on e: exception do
      begin
         Result := False;
      end;
   end;
end;