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