Удаление файла в корзину

Советы » Файлы » Удаление файла в корзину

{ **** 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:folderfilename.ext', Handle); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com