Удалить файл в корзину? Запросто!

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

;

Другое по теме:

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Получение "лицевой" иконки файла