1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

function Kopieren(
  aWnd: HWND; aOperation: UINT; aFrom:Tstrings; aTo: String; aFlags: FILEOP_FLAGS 
  ): Integer; 
var 
  I: Integer; 
  FromPath, ToPath: string; 
  SHFileOpStruct: TSHFileOpStruct; 
begin 
  FromPath := ''; 
  for I := 0 to aFrom.Count - 1 do 
    FromPath := FromPath + aFrom.Strings[I] + #0; 
  FromPath := FromPath + #0; 

  {if Assigned(aTo) then
  begin 
    ToPath := ''; 
    for I := 0 to aTo.Count - 1 do 
      ToPath := ToPath + aTo.Strings[I] + #0; 
    ToPath := ToPath + #0; 
    if aTo.Count > 0 then 
      aFlags := aFlags or FOF_MULTIDESTFILES; 
  end; }

  with SHFileOpStruct do 
  begin 
    Wnd := aWnd; 
    wFunc := aOperation; 
    pFrom := PChar(FromPath); 
    {if Assigned(aTo) then
    begin 
      pTo := PChar(ToPath) 
    end else begin // target available 
      pTo := nil; 
    end; // target not available  }
    fFlags := aFlags; 
  end; // structure 
  Result := SHFileOperation(SHFileOpStruct); 
end;					

1:
2:
3:
4:
5:

{-----------------Liste der zu kopierenden verzeichnisse-------}
verzeichnisliste:=Tstringlist.create;
verzeichnisliste.add('C:\test\');
verzeichnisliste.add('C:\test2\');
{--------------------------------------------------------------}					

1:
2:
3:
4:
5:
6:
7:
8:
9:

begin
                      CreateDir (edit1.text);           {erstellt das verzeichnis aus M D und Y}
                      sicherungsverzeichnis:=edit1.text;
                      if Kopieren(self.handle,FO_COPY,verzeichnisliste,sicherungsverzeichnis,FOF_ALLOWUNDO) = 0
                        then
                          ShowMessage('Sicherung erfolgreich!')
                        else
                          Showmessage('Kopieren nicht möglich!');
                    end;