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

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

{ **** 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
;

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

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

Категории

Статьи

Советы