Borland C++ Builder FAQ - Удаление файла в корзину (VCL вариант)

ОГЛАВЛЕНИЕ


Удаление файла в корзину (VCL вариант)

// разместите компонент TOpenDialog (OpenDialog1) и TButton  (Button1) на форме (Form1). Для удаления файла в корзину напишите следующий  код:
void __fastcall TForm1::Button1Click(TObject  *Sender)
{
    if(OpenDialog1->Execute())
    {
        AnsiString  DialogTitle = "Удаление в корзину";
        SHFILEOPSTRUCT  FileOpStruct;
        ZeroMemory(&FileOpStruct,  sizeof(SHFILEOPSTRUCT));
        FileOpStruct.pFrom =  (OpenDialog1->FileName + '\0').c_str();
        FileOpStruct.wFunc =  FO_DELETE;
        FileOpStruct.fFlags =  FOF_ALLOWUNDO;
        FileOpStruct.lpszProgressTitle =  DialogTitle.c_str();
        SHFileOperation(&FileOpStruct);
    }
}