首先用记事本建立一个扩展名为.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;
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;
解决方案 »
- 要从Oracle中取值插入到access中,sql语句怎么写?
- 基于数据库处理的系统中,采用什么解决方案最好?
- delphi调用oracle存储过程的问题,急
- 在DELPHI中能不能把其它应用程序的窗体嵌入进我的程序里来?高手赐教!!
- 请问我的delphi导出的数据在excel里中间是透明的啊.
- 如何将一非空的目录删除到回收站?象windows删文件夹的功能一样。(100分)
- 可用分用完了,但我还是进来问问,请 cg1120(代码最优化-§新年祝福你,好运伴着你§)等各位大虾进来看看!!
- 开一个线程就showmessage('Hello'),然后每秒在开一个这样的线程!
- ***在dll和中使用ado,出现未调用coinialize的错误,如何是好!***
- 如何在一个事务中提交2个DataSet的修改
- 哪位知道clone方法的用法,有详细例子的更好。
- 为什么case..of这样用不对?
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;释放过程相类似
这个过程可以解释为:装定一个新的可执行文件new.exe,这个可执行文件由三部分构成。1、自己编写的代码,用于管理。2、原来的可执行文件old.exe。3、附加的文件old.txt。执行时首先运行自己编写的代码,释放old.txt,当然,在这个时候,也可以做一些其他的事情...... :),运行old.exe。如果想知道这方面的内容,在好多关于黑客的网站上可以学到,我就不便多说了。
还是麻烦你多说一点好吗?
很多hacher站点,只有tools,没有文章
也可以用流的方式加入到exe后面,但是处理麻烦,尤其是文件定位!
必须对pe结构熟悉,可惜那东西太复杂,不是一两句能说明白的阿!