C++ builder XE10 删除目录下的所有文件及文件夹

以下是由第一种方法是C++ Builder社区 的麦子仲肥提供，第二种方法是由TseChung Wong提供。经调试都能成功。谢谢！

第一种方法： TDirectory::Delete(L"D:\\TEST",true);

第二种方法复杂一点，如下：

BOOL __fastcall TForm5::DeleteDirectory(const char * DirName)
{
    // CFileFind tempFind;     //声明一个CFileFind类变量，以用来搜索
    char szCurPath[MAX_PATH]; // 用于定义搜索格式
    _snprintf(szCurPath, MAX_PATH, "%s//*.*", DirName); // 匹配格式为*.*,即该目录下的所有文件
    WIN32_FIND_DATAA FindFileData;
    ZeroMemory(&FindFileData, sizeof(WIN32_FIND_DATAA));
    HANDLE hFile = FindFirstFileA(szCurPath, &FindFileData);
    BOOL IsFinded = TRUE;
    while (IsFinded)
    {
        IsFinded = FindNextFileA(hFile, &FindFileData); // 递归搜索其他的文件
        if (strcmp(FindFileData.cFileName, ".") && strcmp(FindFileData.cFileName, ".."))
            // 如果不是"." ".."目录
        {
            std::string strFileName = "";
            strFileName = strFileName + DirName + "//" + FindFileData.cFileName;
            std::string strTemp;
            strTemp = strFileName;
            if (IsDirectory(strFileName.c_str())) // 如果是目录，则递归地调用
            {
                // printf("目录为:%s/n", strFileName.c_str());
                DeleteDirectory(strTemp.c_str());
            }
            else
            {
                DeleteFileA(strTemp.c_str());
            }
        }
    }
    FindClose(hFile);

    BOOL bRet = RemoveDirectoryA(DirName);
    if (bRet == 0) // 删除目录
    {
        // printf("删除%s目录失败！/n", DirName);
        return FALSE;
    }
    return TRUE;
}
//-----------------------------------------------------------------------
BOOL __fastcall TForm5::IsDirectory(const char *pDir)
{
    char szCurPath[500];
    ZeroMemory(szCurPath, 500);
    sprintf_s(szCurPath, 500, "%s//*", pDir);
    WIN32_FIND_DATAA FindFileData;
    ZeroMemory(&FindFileData, sizeof(WIN32_FIND_DATAA));

    HANDLE hFile = FindFirstFileA(szCurPath, &FindFileData);
    /** < find first file by given path. */

    if (hFile == INVALID_HANDLE_VALUE)
    {
        FindClose(hFile);
        return FALSE;
        /** 如果不能找到第一个文件，那么没有目录 */
    }
    else
    {
        FindClose(hFile);
        return TRUE;
    }
}

//---------------------------------------------------------------------------

void __fastcall TForm5::Button1Click(TObject *Sender)
{
    if(RzSelectFolderDialog1->Execute())
    {
        Edit1->Text =RzSelectFolderDialog1->Directory;
        AnsiString msg=Edit1->Text;
        DeleteDirectory(msg.c_str());
    }
  
}