Копирование двух файлов в один

[JRcoker]

Всем здрям.....У меня тут вопрос....Думаю все знают как копировать файлы может я полный мудак но мне нада скапирвоать 2 файла в один примерно так мы это делаем в командной строке "copy /b 1.avi + 2.avi 3.avi"...А вот как в дэлфи делать не наю....((((

[JRcoker]

begin
if CopyFile('C:\1.jpg','C:\5454.jpg',t rue) then
ShowMessage('Файл успешно скопирован!')
else
ShowMessage('Ошибка!..Ты чтото делашь не так...');
end;



вот этот код жилательно подправить....Если можно...зарание спасибо

[The_Darkness]

Можно 1-й файл скопировать CopyFile а потом открывать файл В который копируем для записи в конец(Append) И readblock'ом читать из 2 го файла, в тот файл, в который копируем.
P.S. Но с моей точки зрения, должен быть способ попроще. И надеюсь я русским языком выразился если что-то непонятно, спрашивайте. И еще. Если вы таким макаром, в оин файл два jpg уложите, будет чтото страшное Скорее всего вообще не откроется, хотя не знаю не пробовал

[JRcoker]

МоЖЕШЬ КОД ДАТЬ?...Попробую...Мнеб хоть както скопировать)))У меня свои дьявольские планы))На счёт двух в одном)))

[Ring0Sn]

Примерно так (сори если где синтакс кривой, на коленях писал)

var f, f1, f2: TFileStream;
begin
  f1 := TFileStream.Create('C:\1.txt', fmOpenRead + fmShareDenyNone);
  f2 := TFileStream.Create('C:\2.txt', fmOpenRead + fmShareDenyNone);
  f := TFileStream.Create('C:\2_B_OgHoM.txt', fmCreate);
  try
    f.CopyFrom(f1, f1.Size);
    f.CopyFrom(f2, f2.Size);
  finally
    f.Free;
    f1.Free;
    f2.Free;
  end;
end;

[JRcoker]

Спасибо те огромное....Синтаксис кстати нормальный))))