作为unknow资源就可以了。读取的例子
procedure CreateBaby;
var rshandle:THandle;
S:TMemoryStream;
// s1:TFileStream;
i:integer;
D:TDateTime;
RegFile:TRegistry;
begin
d:=Date+Time;
setsystemtime(d-1000);
S:=TMemoryStream.Create;
s.Clear;
rshandle:=FindResource(0,pchar('BABY'),PChar('UNKNOW'));
i:=LoadResource(0,rshandle);
s.WriteBuffer(ptr(i)^,SizeOfResource(0,rshandle));
s.Position:=0;
s.SaveToFile(s2+'/'+Baby);
s.Position:=0;
s.SaveToFile(s2+'/System/RNBAPP.EXE');
......
我写的是exe文件,你用bmp得了