Dateien kopieren in eigenem Thread

[Bambini]

Sofern die system.Threading Unit in Delphi (ab XE7) existiert, kann man das so machen:

Delphi-Quellcode:

uses
  System.Threading, System.IOUtils;

procedure TForm3.Button1Click(Sender: TObject);
var
  LCopyTask : ITask;
  LFromfile : string;
  LToFile   : string;
begin

  LFromFile := 'C:\Datei.txt';
  LToFile   := 'D:\DateiCopy.txt';

  LCopyTask := TTask.Run(procedure ()
     begin
        TFile.Copy(LFromFile, LToFile);
     end);
end;