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;