leInfo结构
      FillChar(SelfFileInfo,sizeof(TFilesInfo),#0);
      FillChar(FirstFileInfo,sizeof(TFilesInfo),#0);
      FillChar(SecondFileInfo,sizeof(TFilesInfo),#0);
      //打开自身并读取
      MySelf:=TFileStream.Create(Application.ExeName,fmOpenReadorfmShareDenyNone);
      //获取自身文件大小
      SelfFileInfo.FileSize:=MySelf.Size;
      SelfFileInfo.FileName:=&;#39;Bind&;#39;;//打上标志
      OutFile:=TFileStream.Create(Edit3.Text,fmCreateorfmOpenWrite);
      //将自身文件保存在输出文件的最前面
      OutFile.CopyFrom(MySelf,0);//第二个参数为0时表示复制整个内容
      //关闭打开的自身文件
      MySelf.Free;
      //打开第一个要捆绑的文件
      SourceFile:=TFileStream.Create(Edit1.Text,fmOpenReadorfmShareDenyNone);
      //获取第一个要捆绑文件的文件名及大小
      StrPCopy(FirstFileInfo.FileName,ExtractFileName(Edit1.Text));
      FirstFileInfo.FileSize:=SourceFile.Size;
      //将第一个文件的内容追加在输出文件后
      OutFile.CopyFrom(SourceFile,0);
      //关闭第一个文件
      SourceFile.Free;
      //打开第二个要捆绑的文件
      SourceFile:=TFileStream.Create(Edit2.Text,fmOpenReadorfmShareDenyNone);
     //获取第二个要捆绑文件的文件名及大小
      StrPCopy(SecondFileInfo.FileName,ExtractFileName(Edit2.Text));
      SecondFileInfo.FileSize:=SourceFile.Size;
      //将第二个文件的内容追加在输出文件后
      OutFile.CopyFrom(SourceFile,0);
      //关闭第二个文件
      SourceFile.Free;
      //将被捆绑文件信息写在输出文件未尾
      OutFile.Write(SelfFileInfo,sizeof(TFilesInfo));
      OutFile.Write(FirstFileInfo,sizeof(TFilesInfo));
      OutFile.Write(SecondFileInfo,sizeof(TFilesInfo));
    //关闭输出文件完成捆绑
    OutFile.Free;
     MessageBox(Handle,&;#39;捆绑完毕!&;#39;,&;#39;Nighter&;#39;,MB_OK)
     end
     else
      Applicatio
    n.MessageBox(&;#39;请选择要保存的路径&;#39;,&;#39;提示&;#39;,MB_OK);(c)Copyleft2003-2007,EvilOctalSecurityTeam.
    ThisfileisdecompiledbyanunregisteredversionofChmDecompiler.
    Regsiteredversiondoesnotshowthismessage.
    YoucandownloadChmDecompilerat:zipghost/