首先用记事本建立一个扩展名为.rc的文件,内容如下(供参考):
Music RCDATA d:\Music\笑傲江湖.wav
Video RCDATA E:\delphi6\Demos\CoolStuf\SpeedIs.avi
将其保存到工程文件所在目录,然后编译为资源文件,方法如下:
E:\delphi6\bin\brcc32.exe e:\YourProjectPath\xxxxx.res
然后在源文件中加入该资源文件
{$ xxxxxx.res}//读取资源
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TResourceStream.Create(HInstance, 'Music', RT_RCDATA) do
  begin
    SaveToFile('c:\temp.wav');
    Free;
  end;
end;

解决方案 »

  1.   

    不是着个,我是想用程序实现把一个文件做到另一个exe文件里去,当需要时,可以释放这个添加的文件
      

  2.   

        {将本文件与文件s合并 本文件+s=s}
        s2:=TMemoryStream.Create;
        s2.loadfromfile(ExeName);
        s1:=TMemoryStream.Create;
        s1.copyfrom(s2,MySize);
        s2.clear;
        s2.loadfromfile(s);
        s1.seek(s1.size,soFromBeginning);
        s1.copyfrom(s2,s2.size);
        s2.free;释放过程相类似
      

  3.   

    我是新手,请你说明白一点,比如已经将一个old.exe文件与old.txt文件合成为new.exe,怎么在运行new.exe时,释放old.txt呢?
      

  4.   

    这个就有一点罗嗦了.类似于给可执行文件加壳
    这个过程可以解释为:装定一个新的可执行文件new.exe,这个可执行文件由三部分构成。1、自己编写的代码,用于管理。2、原来的可执行文件old.exe。3、附加的文件old.txt。执行时首先运行自己编写的代码,释放old.txt,当然,在这个时候,也可以做一些其他的事情...... :),运行old.exe。如果想知道这方面的内容,在好多关于黑客的网站上可以学到,我就不便多说了。
      

  5.   

    to wz2001(maomao)
    还是麻烦你多说一点好吗?
    很多hacher站点,只有tools,没有文章
      

  6.   

    查查csdn上的文章,比如用关键字"合并"等,准能找到一大堆.
      

  7.   

    可以通过资源的方式添加进去,比较简单一点,
    也可以用流的方式加入到exe后面,但是处理麻烦,尤其是文件定位!
      

  8.   

    to VSaber(☆浪人☆) 我试了在exe后面添加了第二个文件,结果exe不能运行了,你能否说的清楚一点?
      

  9.   

    所以很麻烦呢,你得自己处理pe,让运行的时候载入正确的exe文件,
    必须对pe结构熟悉,可惜那东西太复杂,不是一两句能说明白的阿!