rm1: TForm1;

implementation

{$R *.DFM}
Function TForm1.ExtractRes(ResType, ResName, ResNewName : String):boolean;
var
Res : TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result:=true;
finally
Res.Free;
end;
except
Result:=false;
end;
end;
Function TForm1.Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
var
Target,Source:TFileStream;
MyFileSize:integer;
begin
try
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive);
try
Target.Seek(0,soFromEnd);//往尾部添加资源
Target.CopyFrom(Source,0);
MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小，并写入辅程尾部
Target.WriteBuffer(MyFileSize,sizeof(MyFileSize));
finally
Target.Free;
Source.Free;
end;
except
Result:=False;
Exit;
end;
Result:=True;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=''Bmp2Exe演示程序.作者:陈经韬'';
Edit1.Text:='''';
OpenPictureDialog1.DefaultExt := GraphicExtension(TBitmap);
OpenPictureDialog1.Filter := GraphicFilter(TBitmap);

Button1.Caption:=''选择BMP图片'';
Button2.Caption:=''生成EXE'';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
   Edit1.Text:=OpenPictureDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
HeadTemp:String;
begin
if FileExists(Edit1.Text) then
   begin
    Application.MessageBox(''BMP图片文件不存在，请重新选择!'',''信息'',MB_ICONINFORMATION+MB_OK)
    Exit;
   end;
HeadTemp:=ChangeFileExt(Edit1.Text,''.exe'');
if ExtractRes(''exefile'',''head'',HeadTemp) then
     if Cjt_AddtoFile(Edit1.Text,HeadTemp) then
         Application.MessageBox(''EXE文件生成成功!'',''信息'',MB_ICONINFORMATION+MB_OK)
else
     begin
      if FileExists(HeadTemp) then DeleteFile(HeadTemp);
      Application.MessageBox(''EXE文件生成失败!'',''信息'',MB_ICONINFORMATION+MB_OK)
     end;
end;
end.
   怎么样？很神奇吧:)把程序界面弄的漂亮点，再添加一些功能，你会发现比
起那些要注册的软件来也不会逊多少吧。