kopieren und gleichzeitig umbenennen einer Datei

[Dax]

Es geht auch, wenn man nur "Classes" einbindet IdGlobal hat ja nicht jeder, weils Teil der Indys ist.

Delphi-Quellcode:

function CopyFile(Surce, Dest: String): Boolean;
var F, T: TFileStream;
begin
  try
    Result := true;
    try
      F := TFileStream.Create(Source, fmRead);
      T := TFileStream.Create(Dest, fmCreate);
      T.CopyFrom(F, 0);
    finally
      F.Destroy;
      T.Destroy;
    end;
  except
    Result := false;
  end;
end;

@Luckie: Verhau mich nicht, nur weil die Resourcenschutzblöcke nicht ganz stimmen