{ **** UBPFD *********** by delphibase.endimus.com **** >> Удаление файла в корзину Функция удаляет файл, имя которого указаывается в аргументе FileName в корзину. Второй необязательный параметр указывает на Handle окна, которое будет родительским для отображаемых системой диалоговых окон Зависимости: Windows, ShellAPI, Forms Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 06 мая 2002 г. ***************************************************** } functionRecycle(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
;
Пример использования:
procedureTForm1.Button1Click(Sender: TObject) begin
Recycle('d:folderfilename.ext', Handle); end
;