我使用这个程序:functionMoveToRecycle(sFileName:widestring):Boolean;varfos:TSHFileOpStructW;beginFillChar(fos,SizeOf(fos),0);withfosdobeginwnd:=0;wFunc:=FO_DELETE;pFrom:=PWideChar(sFileName+#0+#0);pTo:=#0+#0;fFlags:=FOF_FILESONLYorFOF_ALLOWUNDOorFOF_NOCONFIRMATIONorFOF_SILENT;end;Result:=(ShFileOperatio