//FUNÇÃO PARA EXCLUIR DIRETORIO

bool ExcluirDiretorio(const AnsiString pDiretorio)
{
TSHFileOpStruct Op;
ZeroMemory(&Op, sizeof(SHFILEOPSTRUCT));
Op.hwnd=NULL;
char CopyFile[128];
setmem(CopyFile,128,'\0');
StrPCopy(CopyFile, pDiretorio);
Op.pFrom=CopyFile;
Op.pTo="";
Op.wFunc=FO_DELETE;
Op.fFlags=FOF_NOCONFIRMATION;
Op.hNameMappings=NULL;
Op.lpszProgressTitle=NULL;
int result = SHFileOperation(&Op);

return
result == 0) ? true : false;
}