Hallo Mitchl55,
ich weiß nicht warum den Lösungsungsweg von Sakura nicht magst. Ist aber der saubere Weg ganze Verzeichnise zu kopieren.
Hier ist noch einmal eine Funktion die auf das ShellAPI aufsetzt.
Delphi-Quellcode:
function SHCopyFile(
Handle: THandle; szSource, szDestination: TFileName): Boolean;
var
ShellFileOperation: TSHFileOpStruct;
begin
Result := True;
try
with ShellFileOperation
do
begin
Wnd :=
Handle;
wFunc := FO_COPY;
pFrom := PChar(szSource);
pTo := PChar(szDestination);
// fFlags := FOF_FILESONLY OR FOF_NOCONFIRMMKDIR FOF_SIMPLEPROGRESS;
fFlags := FOF_NOCONFIRMMKDIR;
lpszProgressTitle := '
Dateien kopieren ...';
end;
SHFileOperation(ShellFileOperation);
except
Result := False;
end;
end;
Nicht vergessen die
Unit ShellAPI einzubinden!
bye