Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


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

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