exe生成exe问题 例如：动态贺卡EXE生成器

网上有一个 动态贺卡EXE生成器
可是我执行一直出错  谁帮我看看。
以下是原地址
http://www.pcppc.cn/kaifa/Delphi/kaifa_119179.html
您正在看的Delphi教程是:动态贺卡EXE生成器。    我们经常看到一些电子贺卡之类的制作软件，可以让你自己选择图片，然后 
它会生成一个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 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  ExtCtrls, StdCtrls, ExtDlgs; type 
  TForm1 = class(TForm) 
    Edit1: TEdit; 
    Button1: TButton; 
    Button2: TButton; 
    OpenPictureDialog1: TOpenPictureDialog; 
    procedure FormCreate(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
  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_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. 
   怎么样？很神奇吧:)把程序界面弄的漂亮点，再添加一些功能，你会发现比 
起那些要注册的软件来也不会逊多少吧。

解决方案 »

  1.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtDlgs, StdCtrls;type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        OpenPictureDialog1: TOpenPictureDialog;
        Edit1: TEdit;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
      private
        Function ExtractRes(ResType, ResName, ResNewName : String):boolean;
        Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}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;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;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.
      

  2.   

    程序运行到这里的时候会报错的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;
      

  3.   

    程序运行到这里的时候会报错的 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;