Shellexecute Problem mit Copy

[DeddyH]

Versuch es mal so (ungetestet):

Delphi-Quellcode:

procedure Glue(const Files: TStrings;const DestFileName: string);
var i: Integer;
    src, dest: TFileStream;
begin
  try
    dest := TFileStream.Create(DestFileName,fmCreate or fmOpenWrite or fmShareExclusive);
    try
      for i := 0 to Files.Count - 1 do
        begin
          src := TFileStream.Create(Files[i],fmOpenRead or fmShareDenyNone);
          try
            dest.CopyFrom(src,0);
          finally
            src.Free;
          end;
        end;
    finally
      dest.Free;
    end;
  except
    on E: Exception do
      MessageBox(0,PChar(E.Message),nil,MB_OK or MB_ICONERROR);
  end;
end;

In Files sind die Dateien zu übergeben, die Du "zusammenkleben" willst, und DestFileName bezeichnet den Namen der Zieldatei.