Was soll ich da groß schreiben?
Einfach diese Funktion:
Delphi-Quellcode:
function TForm1.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;
Mit dem Quellordner und dem Zielordner aufrufen. Steht doch schon alles da.