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:

procedure TForm1.Button1Click(Sender: TObject);
var
aSHFOS : TSHFileOpStruct;
  von : array[0..128] of Char;
  nach: array[0..128] of Char;
begin
  // Puffervariablen initialisieren (Doppel-Null!)
  FillChar(aSHFOS, Sizeof(aSHFOS), #0);
  FillChar(von, Sizeof(von), #0);
  FillChar(nach, Sizeof(nach), #0);
  // Ausgangs- und Zielverzeichnis festlegen
  StrPCopy(von, 'C:\quelle');
  StrPCopy(nach, 'C:\ziel');
  with aSHFOS do
  begin
    Wnd := Handle;
    wFunc := FO_COPY;
    pFrom := @von;
    pTo :=@nach;
    fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted := False;
    hNameMappings := nil;
    lpszProgressTitle:= nil;
  end;
  ShFileOperation(aSHFOS);
end;