Программирование на Delphi и не только Как удалить файл в «Корзину»? | Программирование на Delphi и не только

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) — актуальны как никогда.