//解开:名为"exe_client"的RT_RCDATA资源var
RS: TResourceStream;
sTempPath:array[0..255] of char;
begin
gettemppath(sizeof(sTempPath),sTempPath); //临时路径
try
RS := TResourceStream.Create(Hinstance, 'exe_client', RT_RCDATA); //RT_RCDATA表示任类型的数据
RS.SaveToFile(sTempPath + 'A.exe');
except
end;
Winexec(pchar(gettemppath + 'A.exe'),1);
end;
exe_client RCDATA ".\a.exe"
再保存为名为 “newres.rc”文件
2. 在Dos状态下,敲入(注意Brcc32命令的路径,如果你不知道路径你就“查找”一下,OK?):
brcc32 newres.rc
执行成功后,你就可以得到newres.res文件,它就是你编译的资源文件,知道了吧。
3.在程序里调用:
unit Unit1;
interface
...
implementation
{$R *.DFM}
{$R newres.res} // add this line!