为什么Delphi版本动态贺卡EXE生成器出错了

Question

为什么Delphi版本动态贺卡EXE生成器出错了
程序运行到这里的时候会报错的,下列代码就好像没有运行似的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;

Answer 1

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

Answer 2

本帖最后由 bdmh 于 2010-10-26 09:46:17 编辑

  

Answer 3

if not FileExists(Edit1.Text) then
begin
Application.MessageBox('BMP图片文件不存在，请重新选择!','信息',MB_ICONINFORMATION+MB_OK);
Exit;
end;