最火下载站首页
手机版
最火下载站
关注公众号
最火下载站
EXE应用程序文件捆绑工具,Delphi实例源代码

EXE应用程序文件捆绑工具,Delphi实例源代码

  • 软件大小:9 KB
  • 软件语言:简体中文
  • 软件类型:文件操作
  • 软件授权:免费版
  • 应用平台:windows/delphi7
  • 更新时间:未更新
  • 发布时间:2011-01-12 14:51:35

网友评分: 0

软件非常好(2) 软件不好用(1)

EXE应用程序文件捆绑工具,Delphi实例源代码

Delphi文件捆绑实例,选择需要捆绑的两个文件,会生成第三个可执行文件:
// 初始化SelfFileInfo,FirstFileInfo,SecondFileInfo结构
FillChar(SelfFileInfo, sizeof(TFilesInfo), #0);
FillChar(FirstFileInfo, sizeof(TFilesInfo), #0);
FillChar(SecondFileInfo, sizeof(TFilesInfo), #0);

// 打开自身并读取
MySelf := TFileStream.Create(Application.ExeName, fmOpenRead or fmShareDenyNone);
// 获取自身文件大小
SelfFileInfo.FileSize := MySelf.Size;
SelfFileInfo.FileName := ‘Bind‘; // 打上标志
// 创建输出文件
OutFile := TFileStream.Create(Edit3.Text, fmCreate or fmOpenWrite);
// 将自身文件保存在输出文件的最前面
OutFile.CopyFrom(MySelf, 0); // 第二个参数为0时表示复制整个内容
// 关闭打开的自身文件
MySelf.Free;
// 打开第一个要捆绑的文件
SourceFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyNone);
// 获取第一个要捆绑文件的文件名及大小
StrPCopy(FirstFileInfo.FileName, ExtractFileName(Edit1.Text));
FirstFileInfo.FileSize := SourceFile.Size;
// 将第一个文件的内容追加在输出文件后
OutFile.CopyFrom(SourceFile, 0);
// 关闭第一个文件
SourceFile.Free;
// 打开第二个要捆绑的文件
SourceFile := TFileStream.Create(Edit2.Text, fmOpenRead or fmShareDenyNone);
// 获取第二个要捆绑文件的文件名及大小
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;

ShowMessage(‘捆绑完成.);
end;

标签: