两个文件合并后，文件读取的问题！！！！！！！！！！！！！！！！！！！！！！！！！！

Question

我有一个用delphi做的简单的网页浏览器：aa.exe,还有一个网页1.htm,我使用dos中的copy命令：
copy aa.exe/b + 1.htm/a web.exe生成了一个 web.exe的文件，我想运行web.exe时自动把一起合并的1.htm文件读出来，请问我在aa.exe里应该怎样做呢？？？？

Answer 1

这样也行？
Copy应该只是简单的合并，将后者放在前者的后面而已，前者应该不知道后者的存在吧。

Answer 2

哦，我就是这样一个思路，大家看哪里不合适请指教。
我要完成的就是，合并一个浏览工具和一个网页文件，生成一个exe文件，运行exe文件它自动加载网页文件并显示出来。

Answer 3

网页就是已经做好多，这样给你说吧，类似chm的实现。

Answer 4

你要知道1.htm的长度。比如可以再加入一个长度数值到文件的最后。用assign的传统方法读取文件application.exename即可。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);//合并文件
var
  tfs,tff:tfilestream;
  size:int64;
begin
  try
    tfs:=tfilestream.Create(getcurrentdir()+'\1.exe',fmopenreadwrite);
    tff:=tfilestream.Create(getcurrentdir()+'\2.exe',fmopenreadwrite);
    tff.Seek(0,sofromend);
    tff.CopyFrom(tfs,0);
    size:=tfs.Size+sizeof(size);
    tff.Write(size,sizeof(size));
    form1.Canvas.TextOut(10,10,ts);
  finally
    tfs.Free;
    tff.Free;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);//释放文件
var
  tfs:tfilestream;
  tms:tmemorystream;
  size:int64;
begin
  try
    tfs:=tfilestream.Create(getcurrentdir()+'\2.exe',fmopenreadwrite);;
    tfs.Seek(-sizeof(size),sofromend); 
    tfs.ReadBuffer(size,sizeof(size));
    tfs.Seek(-size,sofromcurrent);        
    tms:=tmemorystream.Create;        
    tms.CopyFrom(tfs,size);
    tms.SaveToFile(getcurrentdir()+'\3.exe');
  finally
    tfs.Free;
    tms.Free;
  end;
end;