Dateien und Unterordner von einem Ordner in anderen Ordner K

[Progman]

versuch das mal:

Delphi-Quellcode:

var
  shellinfo: TSHFILEOPSTRUCT;

procedure CopyVerzeichnis(Source, Dest);
var  files : string;
     Abbruch: Boolean;
begin
  files :=Source + #0;
  files := files + #0;
  with shellinfo do begin
     wnd     := Application.handle;
     wfunc   := FO_COPY;
     pFrom   := PChar(files);
     pTo     := PChar(Dest);
  end;
  if SHFileOperation(shellinfo)=S_Ok then
   ShowMessage('Alle Dateien wurden kopiert!')
  else
   ShowMessage('Die Dateien wurden nicht oder nicht vollständig kopiert!');
end;

Anstelle von Application.Handle solltest du besser das Handle deines Forms nehmen, so hatte ich das jedenfalls gemacht.