Buscar por:

Apaga um diretório inteiro

Código

{Use com cuidado, apaga sem pedir confirmação.

O ministério da saúde adverte:

O uso sem o devido cuidado pode causar demissão.}

Function ApagaDiretorio(Diretorio: String): Boolean;

var

  ArqEstrutura: TshFileOpStruct;

begin

  Result := False;

  if not DirectoryExists(Diretorio) then

     Exit;

  Diretorio := ExcludeTrailingBackSlash(Diretorio);

  FillChar(ArqEstrutura, SizeOf(ArqEstrutura), 0);

  ArqEstrutura.wFunc := FO_DELETE;

  ArqEstrutura.pFrom := PChar(Diretorio);

  ArqEstrutura.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;

  Result := ((ShFileOperation(ArqEstrutura) = 0) and (not ArqEstrutura.fAnyOperationsAborted));

end;