[Back to MISC SWAG index]  [Back to Main SWAG index]  [Original]

{
There's a problem here. You can append the binary data but that won't make
code from both EXE files work. Either the first one will work, ignoring
the code from the second one, or the whole thing will turn into trash.

However, if you still want to try it, go ahead. Here are 3 untested by
compiling file copying programs that will only append IT2.EXE to the end of
IT.EXE. You'll be required to make or copy files called IT.EXE and IT2.EXE
for the use of this simple demonstration program.
}

Program BCopy1;
uses objects;
var
 f,f2:tdosstream;
begin
 f.init ('IT.EXE',stopen);
 f.seek (f.getsize);
 f2.init ('IT2.EXE',stopen);
 f.copyfrom(f2,f2.getsize);
 f.done;
 f2.done;
end.

Program BCopy2;
var
 f,f2:file;
 blocks:longint;
 bytes:word;
 buffer:array [1..2048] of byte;
begin
 assign(f,'IT.EXE');
 assign(f2,'IT2.EXE');
 reset(f,1);
 reset(f2,1);
 seek(f,filesize(f));
 bytes:=filesize(f2);
 blocks:=bytes div 2048;
 bytes:=bytes mod 2048;
 while blocks>0 do begin
  blockread(f2,buffer,sizeof(buffer));
  blockwrite(f,buffer,sizeof(buffer));
  dec(blocks);
 end;
 if bytes>0 then begin
  blockread(f2,buffer,bytes);
  blockwrite(f,buffer,bytes);
 end;
 close(f);
 close(f2);
end.

Program BCopy3;
uses dos;
begin
 swapvectors;
 exec(getenv('comspec'),'/c copy /b it.exe+it2.exe it.exe');
 swapvectors;
end.

[Back to MISC SWAG index]  [Back to Main SWAG index]  [Original]