Question

我的Delphi应用程序使用Microsoft资源编译器（rc.exe）编译字符串列表（.rc文件中的文本格式），如下所示：

Language LANG_KOREAN, SUBLANG_KOREAN
STRINGTABLE
BEGIN
    cszLanguageName "Korean"
    <etc>
END

到.res文件中。所有表都包含相同的ID（例如cszLanguageName）。我维护两个单独的资源字符串文件。一个主要包含欧洲语言（英语，捷克语等），我称之为“Standard.rc”。另一个叫做“Alternate.rc”，包含所有其他语言，如韩语，泰语等。

编译时开关确定哪个文件链接到EXE：

{$IFDEF ALT_LANG}
    {$R 'source\Alternate.res'}
{$ELSE}
    {$R 'source\Standard.res'}
{$ENDIF}

那是背景，现在问题了！

考虑到EXE的路径并使用类似Windows GetFileVersionInfo方法的东西，是否可以确定哪些STRINGTABLE资源在EXE中？如果可以确定是否：

Language LANG_KOREAN, SUBLANG_KOREAN

或

Language LANG_CZECH, SUBLANG_DEFAULT

包括在内，然后EXE可以被识别为“标准”或“替代”。

目前，在没有实际执行EXE的情况下，唯一的区别是字节大小，这是一种不可靠的启发式算法。 C ++或C＃很好。我可以适应Delphi或编写一个从Delphi调用的独立实用程序。

更新

根据LU RD的评论，我创建了以下Version.rc文件：

// Version information resource file
VS_VERSION_INFO VERSIONINFO
BEGIN
    BLOCK "StringFileInfo"
    BEGIN
        BLOCK "080904b0"
        BEGIN
        VALUE "InternalName", "Standard"
        END
    END
END

然后将其（使用Microsoft资源编译器）编译到Version.res中，并使用{$R 'source\Version.res'}链接到应用程序。这按预期编译，但是当我尝试从EXE中读取InternalName字段时，它是空白的。如果我手动将项目属性中的InternalName设置为“Test”，则将其设置为“Test”。我做错了什么以及如何覆盖在项目属性中手动输入的内容？

Answer 1

注意：这不是对如何确定特定STRINGTABLE资源是否包含在最终EXE中的问题的答案，而是解决问题的替代方法。

此问题部分基于此answer。

第1步：输入您的项目属性和Version Info标签。如果已设置版本信息（例如版本号或CompanyName），请复制所有相关信息。现在关闭Include version information in project。

步骤2：创建Version.rc和Version_Alt.rc文件。您的确切版本可能会有所不同，但这是一个很好的起始模板：

// Version information resource file
#include "windows.h"
#include "VersionCommon.txt"

1 VERSIONINFO
FILEVERSION VER_NUM_MAJOR, VER_NUM_MINOR, VER_NUM_RELEASE, VER_NUM_BUILD
FILEOS VER_FILEOS
FILETYPE VFT_APP
{
    BLOCK "VarFileInfo"
    {
        VALUE "Translation", TRANSLATION_LANG_ID, TRANSLATION_CHARSET
    }

    BLOCK "StringFileInfo"
    {
        // Note: The block address is a concatenation of the locale ID and code page. This would be "040904E4" for English (US).
        BLOCK "080904E4"
        {
            VALUE "CompanyName",        STRING_COMPANY_NAME
            VALUE "FileDescription",    STRING_FILE_DESCRIPTION
            VALUE "InternalName",       STRING_INTERNAL_NAME_STD
            VALUE "LegalCopyright",     STRING_LEGAL_COPYRIGHT
            VALUE "LegalTrademarks",    STRING_LEGAL_TRADEMARKS
            VALUE "ProductName",        STRING_PRODUCT_NAME
            VALUE "ProductVersion",     STRING_PRODUCT_VERSION
            VALUE "Comments",           STRING_COMMENTS
            VALUE "Homepage",           STRING_HOME_PAGE
        }
    }
}

这是针对Version.rc文件的。对于Version_Alt.rc，InternalName将为STRING_INTERNAL_NAME_ALT，否则其他所有内容都相同。

步骤3：创建可能如下所示的VersionCommon.txt：

// Common version information (between standard and alternate language)

// Version info
#define VER_NUM_MAJOR       1
#define VER_NUM_MINOR       2
#define VER_NUM_RELEASE     3
#define VER_NUM_BUILD       4
#define VER_FILEOS          0x00000004L     // 32-bit Windows

// Translation info
#define TRANSLATION_LANG_ID     0x0809      // Locale: English (UK)
#define TRANSLATION_CHARSET     0x04E4      // Code Page: 1252

// String file info
#define STRING_COMPANY_NAME         "YOUR-COMPANY\0"
#define STRING_FILE_DESCRIPTION     "Software to do amazing things\0"
#define STRING_INTERNAL_NAME_STD    "Standard\0"    // ALT_LANG not defined
#define STRING_INTERNAL_NAME_ALT    "Alternate\0"   // ALT_LANG is defined
#define STRING_LEGAL_COPYRIGHT      "Copyright (C) YOUR-COMPANY\0"
#define STRING_LEGAL_TRADEMARKS     "LEGALISE STATEMENT?\0"
#define STRING_PRODUCT_NAME         "Groovy\0"
#define STRING_PRODUCT_VERSION      "SOME-VERSION-INFO\0"
#define STRING_COMMENTS             "SOME-COMMENTS\0"
#define STRING_HOME_PAGE            "OPTIONAL-YOUR-WEBSITE\0"

步骤4：编写编译资源脚本的批处理文件。请注意，可以将更高版本的Delphi配置为为您编译资源。批处理文件可能如下所示：

@echo off
rem Version.rc and Version_Alt.rc are used to create version information that is linked into
rem the main Delphi application. "InternalName" is used to indicate whether ALT_LANG is defined.

echo Setting the program path (change this if your path is different)
set SOURCE_PATH=<PATH-TO-FOLDER-CONTAINING-RC-FILES>

echo .
echo Use Visual Studio tools to generate the version .RES files
@echo on
cd <PATH-TO-VISUAL-STUDIO-BIN-FOLDER-CONTAINING-RC.EXE>
call vcvars32
rc /r %SOURCE_PATH%\Version.rc
rc /r %SOURCE_PATH%\Version_Alt.rc
echo .
@echo off
echo .

rem pause <- uncomment this to debug errors
exit

步骤5：在文本编辑器中打开Delphi项目（.dpr）并将这些.RES文件链接到最终的EXE：

{$IFDEF ALT_LANG}
    {$R 'source\Strings_Alt.res'}
    {$R 'source\Version\Version_Alt.res'}
{$ELSE}
    {$R 'source\Strings.res'}
    {$R 'source\Version\Version.res'}
{$ENDIF}

第6步：您现在已经获得了文件中包含的版本信息，只需阅读InternalName（将是“标准”或“备用”）。这可以按如下方式完成：

strLanguage := GetSpecificFileVersionInfo('YOUR-EXE.exe', 'InternalName');

并且GetSpecificFileVersionInfo的代码是：

function GetSpecificFileVersionInfo(szFile: PChar; strInfo: String) : String;
var
    pstrBuffer: PChar;
    dwSize, dwLength: DWORD;
    pVersion: pointer;
    strKey: String;
begin
    // Return the specified file version information
    // Adapted from: http://www.swissdelphicenter.com/en/showcode.php?id=1047

    // Typical values in the VERSIONINFO resource of the application include:
    // * CompanyName
    // * FileDescription
    // * InternalName
    // * LegalCopyright
    // * LegalTrademarks
    // * ProductName
    // * ProductVersion
    // * Comments

    // Additional fields may be available if the version information has been updated
    Result := '';
    dwSize := GetFileVersionInfoSize(szFile, dwSize);
    if (dwSize > 0) then
        begin
        pstrBuffer := AllocMem(dwSize);
        try
            if (    (GetFileVersionInfo(szFile, 0, dwSize, pstrBuffer)) and
                    (VerQueryValue(pstrBuffer, '\VarFileInfo\Translation', pVersion, dwLength))) then
                begin
                strKey := Format('\StringFileInfo\%.4x%.4x\%s', [
                    LoWord(Integer(pVersion^)),
                    HiWord(Integer(pVersion^)), strInfo]);
                if (VerQueryValue(pstrBuffer, PChar(strKey), pVersion, dwLength)) then
                    Result := StrPas(pVersion);
                end;
        finally
            FreeMem(pstrBuffer, dwSize);
        end;
        end;
end;

完成工作。现在你已经解决了两个问题。第一个是你原来的那个，用于识别EXE是如何编译的（没有实际运行EXE）。第二个是您可能没有意识到哪个是您手动输入的版本信息容易出错...现在您已经包含了更多自动版本信息。

确定EXE

1 个答案: