希望得到代码实例INI写入RC文件时使用的关键字是什么呢?谢谢
解决方案 »
- Delphi SPComm 自发自收出现乱码,求助。。。
- TTrayIcon灵异事件,求助。
- 怎么样释放循环创建的10个相同的窗体的子窗体
- webbrowser没有onReSize事件,怎么响应HTML代码中对改变窗口的大小啊?
- delphi 记录类型 要怎么定义啊
- 请问下面的代码在delphi中如何实现(vb的代码)
- 如何取TstringGrid的边框(border)的宽度啊?
- 使用SQL语句将Excel数据导入MSSQL数据库的异常
- 问一个比较弱智的问题,indy控件怎么装的?
- 数据库中有两个这样的表的报表问题~!!!急
- 准备成立一个delphi开发兴趣小组,感兴趣的fans请进
- 怎么把TreeView行之间的那个高度调高点?
可以把任意文件放入
下面我给你一个放入Exe文件的例子,任意都是一样的
RC文件中是
nestexe exefile "c:\nestexe.exe"
程序里面是
{$R nestexe.res}procedure TForm1.btnStartClick(Sender: TObject);
var
ResHandle : THandle;
MemHandle : THandle;
MemStream : TMemoryStream;
ResPtr : PByte;
ResSize : Longint;
F: TFileStream;
begin
F := TFileStream.Create('d:\aa.exe',fmCreate);
ResHandle := FindResource(hInstance, PChar('nestexe'), 'exefile');
MemHandle := LoadResource(hInstance, ResHandle);
ResPtr := LockResource(MemHandle);
MemStream := TMemoryStream.Create;
ResSize := SizeOfResource(hInstance, ResHandle);
MemStream.SetSize(ResSize);
MemStream.Write(ResPtr^, ResSize);
FreeResource(MemHandle);
MemStream.Seek(0, 0);
F.CopyFrom(MemStream,MemStream.Size);
F.Free;
//
MemStream.Free;
end;