Есть код с помощью него к существующему ЕХЕ- файлу дописывается строка которую потом можно прочитать. Как сделать так чтобы дописывалась не строка, а список строк?
unit RW;

interface

uses
 Windows, SysUtils, Classes, Controls, Forms,
 StdCtrls, Buttons, ExtCtrls;

type
 TForm1 = class(TForm)
   GroupBox1: TGroupBox;
   Edit1: TEdit;
   Button1: TButton;
   GroupBox2: TGroupBox;
   Edit2: TEdit;
   Button2: TButton;
   procedure BitBtn1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);


 private
   { Private declarations }
 public
   { Public declarations }
 end;

const buff_size=50000;

var
 Form1      : TForm1;
 f,f1       : file;
 buff       : array[1..buff_size] of byte;
 long1      : array[1..4] of char;
 stub_size  : longint;
 read       : integer;
 xdir       : string;
 long2      : array[1..25] of char;
 stub       : string;


 self1_size      : longint;
 self2_size      : longint;
 h               : integer;
 i               : integer;
 nr_oct          : integer;

 information1    : string;
 nr_information1 : byte;
implementation

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
var x    : byte;
   i    : integer;
   s    : string;

begin

try
xdir:=extractfilepath(application.ExeName );
assignfile(f,xdir+'RESULT.exe');
{$i-}
rewrite(f,1);
{$i+}
begin
stub:=xdir+'x.exe';
{$i-}
assignfile(f1,stub);
reset(f1,1);
{$i+}
stub_size:=filesize(f1);
repeat
{$i-}
blockread(f1,buff,buff_size,read);
if read>0 then blockwrite(f,buff,read);
{$i+}
until eof(f1);
closefile(f1);
closefile(f);

assignfile(f,xdir+'RESULT.exe');
reset(f,1);

seek(f,filesize(f));
blockwrite(f,long1,x);
s:=Edit1.text;
if s='' then s:='TEST';
for i:=1 to length(s) do long2[i]:=s[i];
x:=length(s);
blockwrite(f,long2,x);
blockwrite(f,x,1);

end;
closefile(f);
caption:='Cool';
except end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
xdir:=extractfilepath(application.ExeName );
assignfile(f,xdir+'RESULT.exe');
nr_oct:=12;
h:=FileOpen(xdir+'RESULT.exe',fmShareDenyWrite);
fileseek(h,-1,2);
 FileRead(h,nr_information1,1);
  nr_oct:=12+1+nr_information1;
    FileSeek(h,-nr_oct,2);
     FileRead(h,self1_size,4);
       FileREad(h,self2_size,4);
         FileRead(h,long1,4);
          FileRead(h,long2,nr_information1);
          FileClose(h);
          Edit2.text:=information1+long2;
end;

end.

Wow!    Да этож исходник самого Джойнера ( Joiner )  Мы эту феню уже обсуждали с Vit'om поищи в старых топиках

Цитата

Есть код с помощью него к существующему ЕХЕ- файлу дописывается строка которую потом можно прочитать. Как сделать так чтобы дописывалась не строка, а список строк?

Сырец посмотрел, но разбираться не стал. Просто пиши подряд все строки из массива.

Что я не нашол где вы это обсуждали.

Ну тут такое дело: тема называлась ~У меня появилась новая технология (Кажется так) и она закрыта.

Но это не совсем про склеевание файлов, хотя если чуток подумать то из этой технолоджи это можно реализовать.

P.S. Енто самое, если нужен исходник биндера свисни.

http://www.forum.vingrad.ru/cgi-bin....3%E8%FF

Ребят вы меня не поняли мне нужно записать и считать не строку, а список строк.

Я использовал уникальную последовательность символов (десяток байт) для нахождения начала строки, используй такой идентификатор между каждой строкой, или просто записывай их подряд разделяя #13#10 - символами конца строки, потом, после чтения разделишь на отдельные строки.

Всем спасибо за комментарии они мне помогли разобраться, как работает код. И я все написал. Тему можно закрывать.