1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Работа с корзиной в Delphi

Тема в разделе "Delphi - программирование", создана пользователем Guest, 23 окт 2004.

Статус темы:
Закрыта.
  1. Guest

    Guest Гость

    Репутация:
    0
    Возник такой вопрос: существуют API-функции для работы с корзиной Windows (SHEmptyRecycleBin и SHQueryRecycleBin), но:

    1. Требуется IE 4.0 (точнее shell32.dll версии 4.71 и выше).
    2. Нет функций для работы с каждым файлом в корзине (размер, имя,
    возможность восстановления и удаления).

    Как же делать эти операции (и желательно без зависимости от версии системных библиотек) ?
     
  2. Barmutik

    Barmutik Гость

    Репутация:
    0
    Использовать IShellFolder...

    1. Создаём объект работы с корзиной...
    AError := CoCreateInstance(CLSID_IRecycleBin, nil, CLSCTX_INPROC_SERVER or
    CLSCTX_LOCAL_SERVER, IID_IShellFolder, RecycleBin);

    2. Получаем список файлов в корзине...
    RecycleBin.EnumObjects(0, SHCONTF_FOLDERS or SHCONTF_NONFOLDERS or SHCONTF_INCLUDEHIDDEN,
    EnumIDList);

    3. Бежим по списку ...
    while EnumIDList.Next(1, FileItemIDList, ItemCount) = NOERROR do
    begin
    RecycleBin.GetDisplayNameOf(FileItemIDList, SHGDN_FORPARSING, StrRet);
    ... наши операции
    end;

    Не забыть сначала проинициализировать OLE а в конце файнализировать...
    CoInitialize(nil);
    ....
    CoUninitialize;

    Удачи! Если что непонятно спрашивайте дальше...
     
Загрузка...
Похожие Темы - Работа корзиной Delphi
  1. fan92rus
    Ответов:
    5
    Просмотров:
    128
  2. erlan1749
    Ответов:
    10
    Просмотров:
    153
  3. ghostik
    Ответов:
    17
    Просмотров:
    565
  4. nerfy
    Ответов:
    15
    Просмотров:
    182
  5. Васян
    Ответов:
    6
    Просмотров:
    174
Статус темы:
Закрыта.

Поделиться этой страницей