Denne artikkelen viser hvordan du sender en fil til recyle bin heller enn å slette immediately.unit RecycleBin; interfaceuses Windows, ShellApi, funksjon RecycleFile (Filename: string; konst Tekst: Boolean): Boolean, funksjons RecycleFiles (filer : TStrings; konst Prompt: Boolean): Boolean; implementationfunction RecycleFile (Filename: string; konst Tekst: Boolean): boolske; Var Struct: TSHFileOpStruct; Tmp: string; ResultVal: Integer; begynne Tmp: = Filename + # 0 # 0; Struct.wnd: = 0; Struct.wFunc: = FO_DELETE; Struct.pFrom: = PChar (TMP); Struct.pTo: = null; Struct.fFlags: = FOF_ALLOWUNDO; hvis ikke Spør deretter Struct.fFlags: = Struct.fFlags eller FOF_NOCONFIRMATION; Struct.fAnyOperationsAborted: = False; Struct.hNameMappings: = null; ResultVal: = ShFileOperation (Struct); Resultat: = (Resultval = 0); end; funksjons RecycleFiles (filer: TStrings; konst Tekst: Boolean): Boolean, Var jeg: Integer; AllFiles: string; NextPos: PChar, begynner Resultat: = False; hvis Files.Count = 0 deretter Avslutt; SetLength (AllFiles, Lengde (Files.Text)); FillChar (AllFiles [1], Lengde (AllFiles), 0); NextPos: =AllFiles [1]; for jeg: = 0 til Files.Count - en ikke begynne Move (PChar (Files [I]) ^, NextPos ^, Lengde (Files [I])); Inc (NextPos, Lengde (Files [I]) + 1); slutt; SetLength (allfiles, NextPos -AllFiles [1]); Resultat: = RecycleFile (AllFiles, Prompt); end;