SHCopyFile + Ini-File

[Luckie]

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.