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

[Guest]

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

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

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

 

[Barmutik]

Использовать 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;

Удачи! Если что непонятно спрашивайте дальше...