Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Удалить файл в Корзину
   Категория: Приложение
  Программно скрыть MainMenu
   Категория: Компоненты
  Округление времени до 5 мин
   Категория: Базы данных
  Удалить или оставить симолы
   Категория: Текст и строки
  Найти все компьютеры в сети
   Категория: Интернет и Сети
  Упаковать *.mdb-файл
   Категория: Базы данных
  Сохранение странички в файл из TWebBrowser
   Категория: Интернет и Сети

Delphi - База Знаний: Удаление файла в корзину

  << Вернуться к Содержанию  

uses ShellAPI;

function DeleteFileWithUndo( sFileName : string ) : boolean;
var fos : TSHFileOpStruct;
begin
sFileName:= sFileName+#0;
FillChar( fos, SizeOf( fos ), 0 );
with fos do begin
wFunc  := FO_DELETE;
pFrom  := PChar( sFileName );
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
end;
Result := ( 0 = ShFileOperation( fos ) );
end;


Пример вызова функции:
RecycleFile(Filename + #0);


Либо, если изменить строку
pFrom:=PChar(sFileName+#0);

то можно вызывать проще:
RecycleFile(Filename);

  << Вернуться к Содержанию