, stuurt het dossier naar de prullenbak te schrappen, in plaats van onmiddellijk herstel van de eenheid van de gebruikers, de huidige staan;,,,,,, - interface, ramen, shellapi;,, recyclefile (naam, functie: touw; totaal tip: booleaanse): Bull.,, de functie van recyclefiles (documenten: tstrings; een tip: booleaanse): Bull.,,,,, functie, dat recyclefile (bestandsnaam: touw; totaal tip: booleaanse): Bull.,, var, de structuur tshfileopstruct;,,,,,, resultval tmp:.;:.;,,,, TMP:= naam +� 0 0 #;,,,, struct.wnd:=; struct.wfunc:= fo_delete;,, struct.pfrom:= PChar (tmp);,,,, struct.pto:= nul; structuur. Fflags:= fof_allowundo;,, als niet tijdig de woorden,, struct.fflags:=Struct.fFlags of FOF_NOCONFIRMATION;,,,,, Struct.fAnyOperationsAborted: = valse; Struct.hNameMappings: - = nul;,, ResultVal: = ShFileOperation (onder); en het: = (Resultval = 0);,,,,,,, functie RecycleFiles (Files: TStrings; een totaal Prompt: booleaanse): booleaanse;,, var. Ik AllFiles: gehele getal;,,,,, NextPos: touw; PChar;,,, ", gevolg: = valse;,, als Files.Count = 0 dan uit de SetLength (AllFiles;,,, lengte (Files.Text);,, FillChar (AllFiles[1], lengte (AllFiles) 0);,, NextPos: = @AllFiles[1]; I:,, voor Files.Count - 1 = 0 te doen, beginnen, en de weg (PChar (Files[I]) ^, NextPos^, lengte (Files[I]);,, Inc. (NextPos, lengte (Files[I]) + 1);,,,,,, SetLength (AllFiles, NextPos - @Alle documenten [1]); de resultaten: = recyclefile (,, alle documenten, waaruit blijkt dat aan het einde van);,,,,,