我记得DeleteFile是不放在回收站的啊？
还可以用SHFileOperation：
var
FileOpStruct: TSHFileOpStruct;
begin
FillChar(FileopStruct, SizeOf(FileOpStruct), 0);
with FileOpStruct do
begin
Wnd := Application.Handle;
wFunc := FO_DELETE;
pFrom := '文件名';
fFlags := FOF_SILENT;//设置标记位FOF_ALLOWUNDO可让它删除到回收站
end;
SHFileOperation(FileOpStruct);
end;
正如htw所说，有很多工具可以恢复删除文件的。NTFS也是一样。
