【文件属性】：
文件名称：API 删除到回收站
文件大小：200KB
文件格式：RAR
更新时间：2014-06-06 10:43:40
API 删除到回收站
function RecycleFile(sFileName:string):Boolean;
var
FOS:TSHFileOpStruct;
begin
FillChar(FOS,SizeOf(FOS),0);{记录清零}
with FOS do
begin
wFunc:=FO_DELETE; //删除
pFrom:=PChar(sFileName);
fFlags:=FOF_ALLOWUNDO; //移入回收站，而不是物理删除
end;
Result:=(SHFileOperation(FOS)=0);
end;
【文件预览】：
删除到回收站
----UnitMain.pas(1KB)
----UnitMain.dfm(1KB)
----UnitMain.dcu(5KB)
----Delete.identcache(236B)
----__history()
--------UnitMain.pas.~2~(365B)
--------UnitMain.dfm.~6~(1000B)
--------UnitMain.dfm.~9~(1KB)
--------UnitMain.dfm.~4~(971B)
--------UnitMain.pas.~1~(313B)
--------UnitMain.dfm.~3~(872B)
--------UnitMain.dfm.~8~(1000B)
--------UnitMain.dfm.~7~(1000B)
--------UnitMain.pas.~4~(639B)
--------UnitMain.pas.~8~(1KB)
--------UnitMain.pas.~3~(411B)
--------UnitMain.dfm.~1~(329B)
--------UnitMain.pas.~7~(761B)
--------UnitMain.dfm.~10~(1KB)
--------UnitMain.dfm.~5~(972B)
--------UnitMain.pas.~6~(785B)
--------UnitMain.pas.~5~(775B)
--------UnitMain.dfm.~2~(607B)
----Delete.dproj(4KB)
----Delete.dpr(234B)
----Delete.dproj.local(2KB)
----Delete.exe(435KB)
----Delete.res(5KB)