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

Функция удаляет файл, имя которого указаывается в аргументе FileName

в корзину. Второй необязательный параметр указывает на Handle окна,

которое будет родительским для отображаемых системой диалоговых окон

Зависимости: Windows, ShellAPI, Forms

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;

[cc lang="delphi"] 

Добавить комментарий