ОБСУЖДЕНИЕ

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

1 ответов 5,3 тыс.
AI-выжимка обсуждения скоро

Краткие тезисы обсуждения со ссылками на ключевые ответы появятся здесь.

Статус
Закрыто для дальнейших ответов.
Автор темы
Возник такой вопрос: существуют API-функции для работы с корзиной Windows (SHEmptyRecycleBin и SHQueryRecycleBin), но:

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

Как же делать эти операции (и желательно без зависимости от версии системных библиотек) ?
 
Использовать 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;

Удачи! Если что непонятно спрашивайте дальше...
 
Статус
Закрыто для дальнейших ответов.

Ещё по теме