Parameter übergeben

[KodeZwerg]

Warum kopierst Du nicht selber sondern gehst über ne Batch Datei?
Hier ein Beispiel:

Delphi-Quellcode:

procedure TForm4.Button1Click(Sender: TObject);
 var
   f: TSearchRec;
   Dir: string;
 begin
    if not SelectDirectory(Dir,widestring(Dir),Dir) then   Exit; // Quell-Verzeichnis
    FileMode:=0;
    if FindFirst(Dir+'\*.*',faAnyFile,f) = 0 then
    repeat
         try
          if (f.Attr and faDirectory ) < $00000008 then
          CopyFile(PChar(Dir+'\'+f.Name),PChar
 ('C:\Users\Tool\Desktop\test\new\'+f.Name),false); // Ziel-Verzeichnis
         except
          on e: exception do
            ShowMessage(E.Message);
         end;
    until findNext(f) <> 0
 end;

Ps: setz mal Deinen Code in [ DELPHI] hier der Code [ /DELPHI], dann schauts schöner aus.