Как удалить файл в «Корзину»?

Delphi FAQ >> Файлы и каталоги

Вот так можно удалить файл в Корзину в программе на 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;

---

Сейчас свободно распространямые операционные системы (например, ubuntu) — актуальны как никогда.