Delphi .res 文件转换器

Question

我正在寻找一段能够读取和修改 Delphi .res 文件的即用型代码。问题是我需要创建一个应用程序来同时编译许多 Delphi 项目(使用 dcc32.exe 文件)。但是，我需要在编译之前更改文件版本和语言，据我所知，我必须修改 .res 文件才能做到这一点。

您是否遇到过任何代码可以为我提供 .res 文件的接口(interface)，允许我修改其中包含的数据？问题是我只想更改这两条信息，其余部分保持不变。这就是为什么我无法根据脚本编译自己的 .res 文件。

如果从命令行执行的应用程序允许使用参数调用并执行我需要它执行的操作，那么它也可以。

提前非常感谢您!

Answer 1

如果您需要的只是添加文件版本资源，则创建 appver.rc 文件，使用 brcc32 并在您的应用单元之一(例如 >appver.pas) 添加 {$R appver.res} (Marian 注意到您必须关闭 Delphi 项目选项才能包含版本信息)。

我创建了命令行程序，可以增加 .rc 文件中的内部版本号，在 SVN 中使用分支名称中的新版本创建新分支/标签，将 .rc 编译为 .res，并构建应用程序。

包含此类信息(波兰语)的我的 .rc 文件如下所示:

#define IDR_VERSION1  1
IDR_VERSION1 VERSIONINFO LOADONCALL MOVEABLE DISCARDABLE IMPURE
FILEVERSION 7,28,7,17
PRODUCTVERSION 7,28,7,17
FILEFLAGSMASK VS_FFI_FILEFLAGSMASK
FILEFLAGS 0
FILEOS VOS_DOS_WINDOWS32
FILETYPE VFT_DLL
FILESUBTYPE 0
{
 BLOCK "StringFileInfo"
 {
  BLOCK "041504E2"
  {
   VALUE "CompanyName", "xxx\0"
   VALUE "FileDescription", "yyy\0"
   VALUE "ProductName", "zzz\0"
   VALUE "FileVersion", "7.28.7.17\0"
   VALUE "ProductVersion", "7.28.7.17\0"
  }

 }

 BLOCK "VarFileInfo"
 {
  VALUE "Translation", 0x0415, 1250
 }

}