Удаление файла в корзинуDelphi , Файловая система , КорзинаУдаление файла в корзину
Автор: Dimka Maslov { **** 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; Статья Удаление файла в корзину раздела Файловая система Корзина может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |