请问各位大虾，如何将bmp文件转换成exe文件(100分)

前日小弟找到一个软件可以把bmp文件转换成exe文件，请问各位大虾该功能是如何实现的。
[]

资源文件的利用。给我发email，我给你发一个我自己做的jpg to exe小程序：）

zhqgege@163.net

就是把BMP作为EXE的资源，EXE的资源是可以修改的，好像可以用updateresouce几个API函数。

有一篇文章,是陈经韬写的,贴出来一下,作者勿怪哦.[^]

Delphi 编程中“流”的应用

实际应用之二：利用流制作可执行电子贺卡
我们经常看到一些电子贺卡之类的制作软件，可以让你自己选择图片，然后它会生成一个EXE可执行文件给你。打开贺卡时就会一边放音乐一边显示出图片来。现在学了流操作之后，我们也可以做一个了。
添加图片过程我们可以直接用前面的Cjt_AddtoFile，而现在要做的是如何把图像读出并显示。我们用前面的Cjt_LoadFromFile先把图片读出来保存为文件再调入也是可以的，但是还有更简单的方法，就是直接把文件流读出来显示，有了流这个利器，一切都变的简单了。
现在的图片比较流行的是BMP格式和JPG格式。我们现在就针对这两种图片写出读取并显示函数。
Function Cjt_BmpLoad(ImgBmp:TImage;SourceFile:String):Boolean;
var
Source:TFileStream;
MyFileSize:integer;
begin
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
try
try
Source.Seek(－sizeof(MyFileSize),soFromEnd);
Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//读出资源
Source.Seek(－MyFileSize,soFromEnd);//定位到资源开始位置
ImgBmp.Picture.Bitmap.LoadFromStream(Source);
finally
Source.Free;
end;
except
Result:=False;
Exit;
end;
Result:=True;
end;
上面是读出BMP图片的，下面的是读出JPG图片的函数，因为要用到JPG单元，所以要在程序中添加一句：uses jpeg。
Function Cjt_JpgLoad(JpgImg:Timage;SourceFile:String):Boolean;
var
Source:TFileStream;
MyFileSize:integer;
Myjpg: TJpegImage;
begin
try
Myjpg:= TJpegImage.Create;
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
try
Source.Seek(－sizeof(MyFileSize),soFromEnd);
Source.ReadBuffer(MyFileSize,
sizeof(MyFileSize));
Source.Seek(－MyFileSize,soFromEnd);
Myjpg.LoadFromStream(Source);
JpgImg.Picture.Bitmap.Assign(Myjpg);
finally
Source.Free;
Myjpg.free;
end;
except
Result:=false;
Exit;
end;
Result:=true;
end;
有了这两个函数，我们就可以制作读出程序了。下面我们以BMP图片为例：运行Delphi，新建一个工程，放上一个显示图像控件Image1。在窗口的Create事件中写上一句就可以了：Cjt_BmpLoad(Image1,Application.ExeName);
这个就是头文件了，然后我们用前面的方法生成一个head.res资源文件。下面就可以开始制作我们的添加程序了。全部代码如下：
unit Unit1;
interface
uses
……
type
……
private
Function ExtractRes(ResType,ResName,ResNewName:String):boolean;
Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: 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_ICONI
NFORMATION＋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_ICONINFORMATI
ON＋MB_OK)
else
begin
if FileExists(HeadTemp) then DeleteFile(HeadTemp);
Application.MessageBox('EXE文件生成失败!','信息',B_ICONINFORMATION＋
MB_OK)
end;
end;
end.
怎么样？很神奇吧。把程序界面弄的漂亮点，再添加一些功能，你会发现比起那些要注册的软件来也不会逊色多少吧。

做资源不好， 因为修改资源的一些API在Win9x下不都能用。 所以， 还是用陈经韬
的方法比较好。 Flash的swf转换成Exe也是这样的方式， 头部是个播放器，紧接着
是swf文件， 后边在加上一些判断swf文件大小的东东，如此而已。

Up