如何将任何文件加载到EXE中?(200分)

  • 主题发起人 主题发起人 江远
  • 开始时间 开始时间

江远

Unregistered / Unconfirmed
GUEST, unregistred user!
我在编程过程中有一些自定义的文件要用,如何才能将这些文件加载到EXE文件中?
另外哪有好的资源编辑器,Delphi的命令行太难使用了?
 
D5/D6中有一个ResourceWorkshop 4.5,差强人意.
通用的方法是---
把自定义的文件作为资源编译到可执行模块中(EXE or DLL).
这方面的贴子极多
 
自己编写RC文件,
Brcc32.exe 将RC文件编译成RES文件加入PROJECT
非常简单.
 
1:编辑一个resource.rc文件,里面类似如下:
hookdll RC_Dll YourHookDllFileName.Dll
2:然后用Brcc32.exe编译:
brcc32 resource.rc
结果生成resource.res文件
3:修改窗体Pas或者Dpr文件,添加下面的代码:
{$R *.res}
{$R resource.res}
4:关键的代码:
在窗体初始化或者工程的开头部分添加代码:
var
res:tresourcestream;
....
res:=tresourcestream.create(instance,'hookdll','RC_Dll');
res.SaveToFile('YourHookDllFileName.Dll');
res.Free;
5:你的程序退出的时候:
DeleteFile('YourHookDllFile.Dll');
6:End
 
I am sorry !
我离开了一段时间(不过总算还活着)
 
后退
顶部