L'envoi de fichiers vers la corbeille

L'envoi de fichiers vers la corbeille

L'envoi de fichiers vers la corbeille : Plusieurs milliers de conseils pour vous faciliter la vie.

Cet article montre comment envoyer un fichier afin de le recycler bin plutot que de le supprimer immediatement.
unite de RecycleBin
interface

& nbsp & nbsp Windows, ShellApi
fonction de RecycleFile(Filename: string const Invite: Boolean): Boolean
fonction de RecycleFiles(des Fichiers: TStrings const Invite: Boolean): Boolean
application
fonction de RecycleFile(Filename: string const Invite: Boolean): Boolean
var
& nbsp & nbsp & nbsp Struct: TSHFileOpStruct
& nbsp & nbsp & nbsp Tmp: string
& nbsp & nbsp & nbsp ResultVal: Integer
begin
& nbsp & nbsp & nbsp Tmp := nom du fichier #0#0
& nbsp & nbsp & nbsp Struct.wnd := 0
& nbsp & nbsp & nbsp Struct.wFunc := FO_DELETE
& nbsp & nbsp & nbsp Struct.pFrom := PChar(Tmp)
& nbsp & nbsp & nbsp Struct.prise de force := nil
& nbsp & nbsp & nbsp Struct.fFlags:= FOF_ALLOWUNDO
& nbsp & nbsp & nbsp si ce n'Invite ensuite
& ! & ! & ! & ! & ! & nbsp Struct.fFlags := Struct.fFlags ou FOF_NOCONFIRMATION
& nbsp & nbsp & nbsp Struct.fAnyOperationsAborted := False
& nbsp & nbsp & nbsp Struct.hNameMappings := nil
& nbsp & nbsp & nbsp ResultVal := ShFileOperation(Struct)
& nbsp & nbsp & nbsp Result := (Resultval = 0)
fin
fonction de RecycleFiles(des Fichiers: TStrings const Invite: Boolean): Boolean
var
& nbsp & nbsp I: Integer
& nbsp & nbsp AllFiles: string
& nbsp & nbsp NextPos: PChar
begin
& nbsp & nbsp Result := False
& nbsp & nbsp si Fichiers.Count = 0 then Exit
& nbsp & nbsp SetLength(AllFiles, Longueur(Fichiers.Texte))
& nbsp & nbsp FillChar(AllFiles[1], la Longueur(AllFiles), 0)
& nbsp & nbsp NextPos := @AllFiles[1]
& nbsp & nbsp for I := 0 to Fichiers.Count - 1 do
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Deplacer(PChar(Fichiers[I])^, NextPos^, Longueur(Fichiers[I]))
& ! & ! & ! & nbsp Inc(NextPos, Longueur(Fichiers[I]) 1)
& nbsp & nbsp fin
& nbsp & nbsp SetLength(AllFiles, NextPos - @AllFiles[1])
& nbsp & nbsp Resultat := RecycleFile(AllFiles, l'Invite de commande)
fin