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:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

// Vergleicht ob der erste Pfad mit dem Anfang des zweiten Übereinstimmt
function CompPath(FromPath, Path: String; var Count: Word): Boolean;
begin
  PathWithBackSlash(FromPath);

  Count := Length(FromPath);

  if CompareText(FromPath, Copy(Path, 1, Count)) = 0 then Result := True
    else
  begin
    Count := 0;
    Result := False;
  end;
end;

// Kopierfunktion
function CopyFileList(FromPath, ToPath: String; List: TStrings;
  ProgressBar: TProgressBar; var NoCopyCount: Word): Boolean;
var
  c: Integer;
  Count: Word;
  NewFile, NewPath: String;
begin
  Result := False;
  NoCopyCount := 0;
  ProgressBar.Max := List.Count - 1;

  if FromPath[Length(FromPath)] <> '\' then FromPath := FromPath + '\';
  if ToPath[Length(ToPath)] <> '\' then ToPath := ToPath + '\';

  for c := 0 to List.Count - 1 do
  begin
    ProgressBar.Position := c;

    if CompPath(FromPath, List[c], Count) then
    begin
      NewFile := List[c];
      Delete(NewFile, 1, Count);
      NewFile := ToPath + NewFile;

      NewPath := ExtractFilePath(NewFile);
      ForceDirectories(NewPath);

      if not CopyFile(PChar(List[c]), PChar(NewFile), False) then
        Inc(NoCopyCount);
    end
      else
    begin
      Inc(NoCopyCount);
    end;
  end;
end;					

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

uses 
  ShellApi; 

function CopyDir(const fromDir, toDir: string): Boolean; 
var 
  fos: TSHFileOpStruct; 
begin 
  ZeroMemory(@fos, SizeOf(fos)); 
  with fos do 
  begin 
    wFunc  := FO_COPY; 
    fFlags := FOF_FILESONLY; 
    pFrom  := PChar(fromDir + #0); 
    pTo    := PChar(toDir) 
  end; 
  Result := (0 = ShFileOperation(fos)); 
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
CopyDir;
end;					

1:

CopyDir 'c:\*.*' , 'd:\';					

1:

CopyDir (fromDir:='c:\*.*');