1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Uses
  ShellAPI;

Function CopyFolder (aSource, aDest: String): Boolean;
Var
  FS: TSHFileopStruct;
Begin
  FillChar (FS, SizeOf (FS), 0);

  With FS Do
    Begin
      wFunc := FO_COPY;
      pFrom := PChar (aSource + #0);
      pTo := PChar (aDest + #0);
    End;

  CopyFolder := SHFileOperation (FS) = 0;
End;					

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
  If Not CopyFolder ('c:\Folder', 'z:\Folder2') Then
    { Fehler } ;
end;					

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

typedef struct _SHFILEOPSTRUCT {
    HWND hwnd;
    UINT wFunc;
    LPCTSTR pFrom;
    LPCTSTR pTo;
    FILEOP_FLAGS fFlags;
    BOOL fAnyOperationsAborted;
    LPVOID hNameMappings;
    LPCTSTR lpszProgressTitle;
} SHFILEOPSTRUCT, *LPSHFILEOPSTRUCT;