Удаление файлов в корзину

uses

ShellAPI;
procedure

SendToRecycleBin(FileName: string); var

SHF: TSHFileOpStruct;
begin

with SHF do begin
Wnd := Application.Handle; wFunc := FO_DELETE;
pFrom := PChar(FileName); fFlags := FOF_SILENT or FOF_ALLOWUNDO; end;
SHFileOperation(SHF);
end

;

procedure

TForm1.Button1Click(Sender: TObject); begin

SendToRecycleBin('c:DownLoadTest.gif'); end

;

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

• Как скопировать все файлы вместе с подкаталогами
• Копирование файлов
• Удалить файл в корзину? Запросто!