Kopieren von Dateien mit Windows-Arbeit

Kopieren von Dateien mit Windows-Arbeit

Kopieren von Dateien mit Windows-Arbeit : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Gewusst wie: Kopieren von mehreren / large-Dateien und die Windows Fortschritt Formular anzeigen.
(Stellen Sie sicher, dass ShellAPI in Ihrer Liste verwendet wird)
Quelle und Dest sind sowohl eine Liste der Dateien, die mit #0, z. B. getrennt
WinCopyFile ('C:\1.txt ' #0 + 'c:\2.txt', 'a:\1.txt' + #0 + 'a:\2.txt');
Funktion WinCopyFile (Quelle, Dest: String): Boolean;
var
Struktur: TSHFileOpStruct;
Resultval: Integer;
beginnen
ResultVal: = 1;
versuchen Sie
Quelle: Quelle + #0 = #0;
Dest: = Dest + #0 #0;
Struct.WND: = 0;
Struct.wFunc: = FO_COPY;
Struct.pFrom: = PChar(Source);
Struct.pTo: = PChar(Dest);
Struct.fFlags:=, FOF_SIMPLEPROGRESS oder FOF_NOERRORUI oder FOF_NOCONFIRMATION;
Struct.fAnyOperationsAborted: = False;
Struct.hNameMappings: = Nil;
Resultval: = ShFileOperation(Struct);
Schließlich
Ergebnis: = (Resultval = 0);
Ende;
Ende;