{ **** UBPFD *********** by delphibase.endimus.com ****
>> Удаление файла в корзину

Функция удаляет файл, имя которого указаывается в аргументе FileName
в корзину. Второй необязательный параметр указывает на Handle окна,
которое будет родительским для отображаемых системой диалоговых окон

Зависимости: Windows, ShellAPI, Forms
Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 06 мая 2002 г.
***************************************************** }

function Recycle(const FileName: string; Wnd: HWND = 0): Boolean;
var
 FileOp: TSHFileOpStruct;
begin
 FillChar(FileOp, SizeOf(FileOp), 0);
 if Wnd = 0 then
 Wnd := Application.Handle;
 FileOp.Wnd := Wnd;
 FileOp.wFunc := FO_DELETE;
 FileOp.pFrom := PChar(FileName);
 FileOp.fFlags := FOF_ALLOWUNDO or FOF_NOERRORUI or FOF_SILENT;
 Result := (SHFileOperation(FileOp) = 0) and (not
 FileOp.fAnyOperationsAborted);
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject)
begin
 Recycle('d:\folder\filename.ext', Handle);
end;