El envío de los archivos a la papelera de reciclaje

El envio de los archivos a la papelera de reciclaje

El envio de los archivos a la papelera de reciclaje : Multi-millones de consejos para hacer su vida mas facil.

en Este articulo se muestra como enviar un archivo a la recyle de reciclaje en lugar de eliminar de inmediato.
unidad de RecycleBin
interfaz
usos
& nbsp & nbsp Windows, ShellApi
funcion RecycleFile(Filename: string const Mensaje: Boolean): Boolean
funcion RecycleFiles(Archivos: TStrings const Mensaje: Boolean): Boolean
aplicacion
funcion RecycleFile(Filename: string const Mensaje: Boolean): Boolean
var
& nbsp & nbsp & nbsp Struct: TSHFileOpStruct
& nbsp & nbsp & nbsp Tmp: string
& nbsp & nbsp & nbsp ResultVal: Integer
begin
& nbsp & nbsp & nbsp Tmp := nombre del archivo #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.toma de fuerza := nil
& nbsp & nbsp & nbsp Struct.fFlags:= FOF_ALLOWUNDO
& nbsp & nbsp & nbsp si no solicitara, a continuacion,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Struct.fFlags := Struct.fFlags o FOF_NOCONFIRMATION
& nbsp & nbsp & nbsp Struct.fAnyOperationsAborted := False
& nbsp & nbsp & nbsp Struct.hNameMappings := nil
& nbsp & nbsp & nbsp ResultVal := ShFileOperation(Struct)
& nbsp & nbsp & nbsp Resultado := (Resultval = 0)
fin
funcion RecycleFiles(Archivos: TStrings const Mensaje: Boolean): Boolean
var
& nbsp & nbsp I: Integer
& nbsp & nbsp AllFiles: string
& nbsp & nbsp NextPos: PChar
begin
& nbsp & nbsp Resultado := False
& nbsp & nbsp si los Archivos.Count = 0 entonces Salida
& nbsp & nbsp SetLength(AllFiles, Longitud(Archivos.De texto))
& nbsp & nbsp FillChar(AllFiles[1], la Longitud(AllFiles), 0)
& nbsp & nbsp NextPos := @AllFiles[1]
& nbsp & nbsp for I := 0 para los Archivos.Count - 1 do
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Mover(PChar(Archivos[I])^, NextPos^, Longitud(Archivos[I]))
& nbsp & nbsp & nbsp & nbsp Inc(NextPos, Longitud(Archivos[I]) 1)
& nbsp & nbsp final
& nbsp & nbsp SetLength(AllFiles, NextPos - @AllFiles[1])
& nbsp & nbsp Resultado := RecycleFile(AllFiles, Simbolo del sistema)
fin