Hi @,
WOW so viel Resonanz.
Vielen 'Dank.
Ich habe derzeit ein bisschen experimentiert und folgendes programmeirt.
Delphi-Quellcode:
function CopyDir_without_Root(const fromDir, toDir: string): Boolean;
var
fo: TSHFileOpStruct;
buffer : array[0..4096] of char;
p : pchar;
begin
FillChar(Buffer, sizeof(Buffer), #0);
p := @buffer;
StrECopy(p,Pchar( fromDir+'\*.*')); //this is folder that you want to copy
FillChar(Fo, sizeof(Fo), #0);
Fo.Wnd := form1.Handle;
Fo.wFunc := FO_COPY;
Fo.pFrom := @Buffer;
Fo.pTo := PChar(toDir); //this is where the folder will go Fo.fFlags := 0;
Result := (0 = ShFileOperation(fo));
end;
Das ist fast ähnlich wie das letzte Posting.
Vielen Lieben Dank.