🚀 go-pugleaf

I use this function:

void Delete_AllFiles(TForm* pForm, char* s)
{
    char Buffer[MAX_PATH];

    // Create an object of the class SHFILEOPSTRUCT.
    SHFILEOPSTRUCT oFile;

    memset(Buffer, 0, sizeof(Buffer));       //Init Buffer to 0
    memset(&oFile, 0, sizeof(oFile));        //Set Structure to 0

    // Make the application (Form1) to be the Owner of the
    // Progress Dialog Box that is displayed while
    // the delete operation takes place
    oFile.hwnd = pForm->Handle;

    //Set the Operation to be performed
    oFile.wFunc = FO_DELETE;

    //Set the directory you want to delete
    strcpy(Buffer, s);
    oFile.pFrom  = Buffer;
    oFile.fFlags = FOF_ALLOWUNDO;

    SHFileOperation(&oFile);
}
//----------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    //Examples
    //Delete_AllFiles(Form1, "c:\\__TEST\\*.*");

    Delete_AllFiles(Form1, Edit1->Text.c_str());
}

Rodolfo

"Konstantin Polyakov" <support@chemtable.com> wrote in message
news:3e906b66@newsgroups.borland.com...
> Hello, All!