Senden von Dateien in den Papierkorb

Senden von Dateien in den Papierkorb

Senden von Dateien in den Papierkorb : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel veranschaulicht das Senden einer Datei an die Sicherheitslücke bin, anstatt sofort zu löschen.
Einheit RecycleBin;
Schnittstelle
verwendet
Windows, ShellApi;
Funktion RecycleFile (Dateiname: Zeichenfolge; const Prompt: Boolean): Boolean;
Funktion RecycleFiles (Dateien: TStrings; const Prompt: Boolean): Boolean;
Umsetzung
Funktion RecycleFile (Dateiname: Zeichenfolge; const Prompt: Boolean): Boolean;
var
Struktur: TSHFileOpStruct;
Tmp: String;
ResultVal: Integer;
beginnen
Tmp: = Dateiname + #0 #0;
Struct.WND: = 0;
Struct.wFunc: = FO_DELETE;
Struct.pFrom: = PChar(Tmp);
Struct.pTo: = Nil;
Struct.fFlags:= FOF_ALLOWUNDO;
Wenn nicht dann Prompt
Struct.fFlags: = Struct.fFlags oder FOF_NOCONFIRMATION;
Struct.fAnyOperationsAborted: = False;
Struct.hNameMappings: = Nil;
ResultVal: = ShFileOperation(Struct);
Ergebnis: = (Resultval = 0);
Ende;
Funktion RecycleFiles (Dateien: TStrings; const Prompt: Boolean): Boolean;
var
I: Integer;
AllFiles: String;
NextPos: PChar;
beginnen
Ergebnis: = False;
Wenn Files.Count = 0 then Exit;
SetLength (AllFiles, Length(Files.Text));
FillChar (AllFiles [1], Length(AllFiles), 0);
NextPos: = [1];-@AllFiles
für I: = 0 to Files.Count - 1
beginnen
Move(PChar(files[I]) ^, NextPos ^, Length(Files[I]));
Inc (NextPos, Length(Files[I]) + 1);
Ende;
SetLength (AllFiles, NextPos - die @AllFiles[1]);
Ergebnis: = RecycleFile (AllFiles, Eingabeaufforderung);
Ende;